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IDENTIFICATION 
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SEQ coc 
CONTENTS 
ABSTRACT 
REQUIREMENT 
1 EQu PMENT 
2.3 PRELIMINARY PROGRAMS 
LOADING PROCEDURE 


STARTING PROCEDURE 
4.1 CONTROL SWITCH SETTINGS 
s adh SS 

4. OPERA 


SOT R TNR PERAT TONAL TTINGS 
5.2 STBROUTINES agetRacr = 


ERRORS 
6.1 ERROR TYPES 
6.2 ERROR RECOVERY 


RESTRICTIONS 

MISCELLANEOUS 

8.1 EXECUTION TIME 

B:2 © STACK POINTER 

8:3 COMMON TAG 

8:4 TIMING TESTS <TST?-TST12) PRINTOUTS 
8:5 END OF Tee: 

8:5 RHII/RPON DRIVER 


PROGRAM DESCRIPTION 
LISTING 


E01 


ABSTRACT 


ee a a 
Sil oe 
RETRIEVEL CAPAB 


REQUIREMENTS 


WITH YR et CONSOLE TELETYPE, 
I 


RHLI/RPOY DI 
4 resté ARE DESIRED). 


AND A KW11-P 


POP-11 COMPUTER 
SK WITH F 
CLOCK (IF TIN 


USE STANDARD PROCEDURE FOR LOADING .ABS TAPES 





STARTING PROCEDURE 


CONTROL SWITCH SETTINGS 


THE CONTROL SWITCH SETTINGS ARE INPUT VIA THE TTY. 
Me eres THE CONTROL SWITCH SETTING MODE PLACE SW<07>= 


PE THe PRESENT CONTENTS. OF ThE CONTROL sic! GISTER 


ME PE sigtrgr't Shah (/h't Woe OCTm let 
STRING nist CONSIS 1 TO & OCTAL DIGITS, io 
PERIOOS (..) AND A 
THE C.SWR SETTINGS ARE: 
C.SWR(1S)=0. . .WALTE PACK 
C.SWRC1Y>=0. «0 ST 
C.SWR«13>=0. .: 
C.SWR(12>=0..: T4 
=]... PERFORM I Pine NT cee 
C.SWR< 08> =O... wy 1 Ss g fy 


=l... C 
C.SWR<O7>=0... RIND ai COrrANDS. TN TeSTS 0-6 


, ee ICIT S IN TESTS 0-6 
combinant vot is 


C.SWR«05>=0... ALLOW MEOQUTS (ENABLE WATCHDOG TIMER? 
=1... INHIBI SOF TERRE "TIMEOUTS (DISAELE WATCHDOG TIMER) 


THE DEFAULT CONDITION OF C.SWR<1S:00)=0. 
REFER TO 4.4.1 FOR C.SWR SELECTION 


STARTING ADDRESSES 








OPERATOR ACTION 


me et INTO MEMORY (SEE SECTION 3 


(oyg ONLI STATE, 1s fealEsT™ 
ee see SECTION 4.1 8 S.1) 


IN AN EFFORT TO ALLOW CONVERSATION WITH A PROGRAM FOR THE 
PURPOSE OF CONTROLLING ITS OPERATION AND PARAMETERS THE FOLLCWING 
REL: IN A 


§ ARE USED FOR CLARITY AND ARE 


NOTEe: Tie CoRR RETR ty TYPED BY THE USER IS INDICATED BY 
» AD WILL BE CHOED AS A “CARRIAGE RETURN-LINE FEED. 


«.>«CR> PERIOD 


A STATEMENT TERMINATOR: WHEN TYPED 
OF A ( ON 


END OF 
STRING. 


PERIOO PERIOD 

AN INPUT TERMINATOR: WHEN A PERIOD IS TYPED 
Re aetna Bere. tates at 
ON ALL LI 18) BecIN CUTION. 
CONMA 
A CONTINUATION INDICATOR AND FIELD SEPARATOR: 


SEPARATE MULTIPLE ENTRIES ON THE SAME TEXT 
STRING, I.€., A,B,C,0. 





HO1 


SLASH 
FICATION ATOR: AT _ANY GIVEN PARAMETER 
ST IF A A SLASH re TYPED IT SAYS “OPEN THIS 
TER FOR OR CHANGES" 
CONTROL -U 
DUMP THE PRESENT INPUT STR hit Aes START A NEW 
ING 


ter ms 58 es oe RNG THE UF. 


AEF LEE Tre SRUBOUTS FEY WICH MILL 
RE Ecren Ye — & ) F oLLoWeD BY 


CONTROL SWITCHES SELECTION 


STARTING THE pel BLES tonr STARTING G DOORESSES 
anTH ric Rode WILL RESULT Y IN CENTERING SWITCH 
ALLOWING THE OPERATOR TO 0 SPECIFY THE 


BESTRED STAE “OF "C!SUR*. 
CONTROL SWITCH SELECTION EXAMPLES 
EXAMPLE #1 
ae wl dd 0 
EXAMPLE #2 
ae suc G7» =0 
C. SWR=000000/e 


4.4.2 ADDRESS _ SELECTION 


SAIS Ne PA TEMA ESI TORT 


CTOR AND PRIORITY OF 
gd ae GT 
PIG lle TSE od SPH 
WILL AKEN: 
3. IF THERE ISN’T A MONITOR -- FOR 
ame, "ee LD AO 
ADORTSS, THE VE PRIORITY 
.1 ADDRI'SS SELECTION EXAMPLES 
EXAMPLE #1 
RHCS1=177200/176300. . 
EXAMPLE #2 
RHCS1=177200/176300, 
RHVEC=2S4. . 
RHPRIO=S/6.. 
EXAMPLE #3 


RHCS1=177200 
RHVEC=254/260. . 


EXAMPLE #4 


RH11/RPCY FAILED TO RESPOND TO ADDRESSING 
RHCS1_ ERR PC 


1 XXXXXX 

RHCS1=177200/176300. . 
EXAMPLE #5 

RHCS1= {77 C00/1776\G7\E 30, 

RHVEC=254 


(RHCS1), 


of eg 


Ee GF ACTION 


1S A MONITOR -- TO THE NONIT 
RDORESSES 


(Rest) 





JOl 


4.4.3 DRIVE AND PARAMETER SELECTION 


SELECTION OF THE DRIVES 0 TEST AND THe TESTS. TO RUN. 


STARTING THE PROGRAM AT 210 OR 214 ae THE 


TO Rr aS THE meets le uy BE TESTED 


OPERATOR 
TESTS TO BE EXECUTED, 


4.4.3.1 DRIVE AND PARAMETER SELECTION DESCRIPTION 
THE FOLLOWING IS A TABLE OF TERMS USED BY THE PSI. 


REPEATS (ITERATIONS) 


cer re 


X 1S 1 TO 16 


# useD BY 
NOTE]: Te 
NOTE?: an bn WILL AP, 1 eas 2 Mute 4 rear pe eetret 
BY A BIT (I.E. 001 eat + TERN S) AND “WDX™ GIL BE in N OCTAL. 


SPECIAL CASES OF CONTROL CHARACTERS 


te) “MO OnER TESTS: 1H IN Te fesi’ tomo” otal 


ARE Crore, THEY WILL necE VE_THE PARAMETERS OF 
THE Test THA TS OPEN WHEN < S TYPED. 


biuess ATEST 1S 10 BE OPENED 


ng 


T TEST rea ey 
wot S aoe THE UR Rah poe: 

IVES T T0 
0 BE oe ES HE tne’ CONTROL ¢ Bes 


THE PROGRAM WILL RESPOND WITH: 


ORIVE(S)= 
EXCPLE THAT THE T WISHES 
OE (ee RAT HARE He BL RE ELE To cance 
CINITIAL CYLINDER FINAL LIN SS, ETC.). 

vee rm es R FOR AOR CHANGES, AND <CRD * . 

TO THIS he TAKE ME F AND <CR> “TAKE IT. 
FOR CLARITY THE LINE WI WiLL ff REPEA T LOOKS AFTER USER RESPONSE WITH 
THE LINE BELOW I : 

DRIVE(S)=3, <CR> 
PS LHe ae rae ie Pee 

i a oe > (Td 
SEPERATE FI D», llc. Fe edit Geittes Siaat | EXECUTION 

<«CR> (TRKE 
IT NOW LOOKS LIKE THIS 

OR VE(S)=3, <CR> 

T=2-7, ~~ -«CR> 

IN OUR NEXT WISHES 19 DRIVE 
4 AND RUN TESTS 1 11 WITH OA EP ere 
AND 10 MODIFIED. 
THIS IS HOW HE WOULD RESPOND: 

DRIVE(S)=4, <CR> 
THE INSERT A LINE LINE 10 GET TESTS 1 AND 3 THRU 

Ss To” S 10 FOR PARAME 

But Rererm Me Mime To -brenr TST 9 

DRIVE(S)=4, <cRy 


T=1,3/4-7, 10/11. <CR> 


NOTICE THIS SAYS SELECT TEST ONE, CONTINUE<.>; SELECT TEST 3 OPEN« a; 
SELECT TESTS te! CONTINUE. >; SELECT TEST 10, OPEN</>; SELECT TE 





LO 


THE PSI SCANS THE TEST Y enie AND DETERMINES THAT TEST #1°S 
Arata ele, we 
: “FOR CLARITY ENTIRE TRANSACTION REPEATED» 


ORIVE(S)=4, <C> 
TEST=1 34-7, 10711.<CR> 
fest’ 3 


R=X ;WHERE X IS ITERATION 
tate ats 


ON OF THE ITERATION. COUNT, ENDING THe LIRE ITH A’ 


CATION 
TRAP eR eH s Os tea GAH dhe MB 


Teetel g/4°7, 1 10711, <CR> 


iy oe DO NOT ALTER CONTINUE 
FC=A :WHERE N IS FIRST CYLINDER ADORESS 


“WE USER DOES NOT WISH TO CHANGE “FC” SO THE FOLLOWING ACTION IS TAKEN: 


DRIVE(S)=4, <CR> 
teats. a/4-7, 10711.<CR> 


TES 

Flach, BST ATER RUB ENE BT EOTINE 
Seas Mahe i 
0 CHANGE it 10 cn ahaes 20. THEREFORE 


DRIVE). «CRD 


«, at Q 2 {SEEN LIN Fo CHANGES fe FoR TH 


THE Pe Gota.” TRANSACTION AND RESPONSE : 


DRIVE (S)=4, <CR> 
Testete ve7, »10711.<CR> 


M01 
REPOS LOI AA IR SORTS 1s 


I 
NOW WAITING FOR CHANGES TO TEST 10. 


USER TYPES </> (OPEN THIS LINE FOR CHANGE), "10" (MAKE 
ITERATION COUNT 10), <.> (THIS IS THE END OF CrwNGES TO THIS 


<CR> (TAKE IT). 


ne Peo NOW LOADS TEST 10 WITH THE NEW PARAMETERS, TEST il 
WITH PREVIOUSLY ASSIGNED PARAMETERS AND RESPONDS WITH: 


DRIVE(S)= 
SINCE THE USER DID NOT 
PROGRAM 
Cg ult chi 
q 
CHANGES CAN 


TYPING <..>. 





NO1. 


4.4.3.2 DRIVE AND PARAMETER SELECTION EXAMPLES | SEQ 0012 


EXAMPLE #1 
chai Sahat Aaah SEATON ION’! "STNG PREVIOUSLY ASSIGNED 
i PARAMETERS 
EXAMPLE 42 
ORIVE=0, « ;SELECT DRIVE #0 AND MAKE CHANGES *,” 
Test=1-$. ohn *RUN TEST 1 THRU S ONLY, USE DEFAUL 
:PARANETERS AND INATE AND EXECUTE “..” 
EXANPLE #3 
ORIVE sSELECT DRIVE #2 AND MAKE CHANGES ”,” 
TEST= Tee EF oy. <CR> RUN TEST Ne WITH DEFAULT PARAMETERS, OPEN 
TEST 6° ;TEST 6,7 10 FOR S 
R=1_ <CR VE is MOVE TO NEXT PARAMETER 
Fc=0/10 oR SET "FC" CYLINDER ADDRESS TO 10 “." END CHANGES 
-TO TEST #6 
TEST ? 
=1/50, <CR> :50 ITERATIONS, MOVE TO NEXT PARAMETER 
Fo=0_ <tr> $00_NO T CHANGE FC" CYLINDER ADDRESS BUT CONTINUE “,” 
LC=4 soio-e0.. <CR> “TEST 10 IS STILL PENDING 
"AND WILL THEREFORE BE 
SET TO THE SAH PARAMETERS 
AS TEST 7 -- START EXECUTION 
EXAMPLE #4 
ORIVE=O, <CR> sSELECT DRIVE #80 AND MAKE 
TEST=S,£..<CR> RUN ALL SEEK TESTS AND THE EXERCISER 
EXAMPLE #5 
DRIVE=1, <CR> 
Tegte9/B.<CR> ; RUN : TESTS (OPEN FOR CHANGES) AND 
S THE DATA TEST (WITH DEFAULT PARAMETERS) 
R=10,<CR> RUN WITH 10 ITERATIONS 
FC=0710..<CR> : FIRST CYLINDER ADDRESS 
* AND 2 ART EXECUTION 
TESTS 1-6 WILL BE ASSIGNED THE 
“SAME PARAMETERS AS TEST 0 


B02. 


SEQ 0013 
EXAMPLE #6 
DRIVE=1, <CR> 
Testes”. <CR ;OPEN THE SEEK TESTS (TST 0-6) 
R=19/100. «CR» ;CHANGE TO 100 ITERATIONS; <.> MOVE TO NEXT TEST 
R=190/ 1000. «CR» ;CHANGE R TO 1000 ITERATIONS; <.> MOVE TO NEXT TEST 
R=1/10, «CR? sCHANGE R TO 10 ITERATIONS » <)> MOVE TO NEXT LINE 
FC=0/50, «CR» :CHANGE FC TO 50; <,> MOVE TO NEXT LINE 
Le=410/51.<CR) ;CHANGE LC TO 51: <!> MOVE TO NEXT TEST 
R=1.<CR> 3<.) MOVE TO NEXT TEST 
TEST 4 
R21. .<CR> SUSE TESTS 4°S PARAMETERS 
:FOR TEST S & 6 START EXECUTION 
EXAMPLE #7 
DRIVE=1, «CR? 
TEST=D/; <CR? ;SELECT AND OPEN THE DATA TEST 
R=1/1000, <CR> ;D0 1900 ITERATION OF TEST PATTERN 
FC=0710, <CR» 98 ON CYLINDER 10, TRACK 2, SECTOR 4 
L¢=410710, «CR» 
1C=6470, <CR> 
FT=072, <CR> 
LT=18/2, <CR> 
T=1, <CR> 
FS70-4, <CR> 
L&=2274. <CR> 


PAT=177977/400. .<CR) ;RUN WITH PATTERN #6 








C0e 


PRIVESL. » <CR> 
Se ice” 


BAT ASOOO/HOL CR ; 
eile 16555S/ 125252, CR 
WO2=133333/5e5e5. . «CR? 


, AND 4 IN SEQUENCE 


DRIVE=0 1,4, ; TEST DRIVES ° 
TEST=0-8/ “CHANGE TEST 
TEST 0 

R=10, 


FC=0 
L¢=4lov1.. Ee OR Test aocee START TESTING 


1 
S 





OPERATING PROCEDURE 


OPERATIONAL SWITCH SETTINGS 


te: SW<1 ‘Oe me 5 FEST. WILL PRINT OUT ON 
Foe oir ITCH SETTINGS ARE 


ba 


Bae cee SurTC CH ory TING FR on try 


oe 
TOR (TESTS 13814) 
fet Me 


CK (te est 15) 
cae meee, (TEST 15) 
creck TERROR (TEST 1S) 


THE SUBROUTINE CALLS USED BY THIS PROGRAM ARE: 


1. JOT (USED re SCOPE 


sn TEST iN THE INSTRUCTION 
SECTION IT Faiaee fest OF EACH TEST IN 
AS IT i BEING ENTERED. 


2. EMT (USED FOR ERROR) 
THIS CALL IS USED TO REPORT ALL ERRORS (REFER TO 6). 


3. TRAP (USED FOR TYPE, TYPOC, TYPOS 
TYPON, TYPOS, ROCHR, ROLIN, SAVREG, 
AND RESREG) 

4. JSR R,AOR 


THE FOLLOWING SECTION CONTAINS AN ABSTRACT 
FOR EACH SUBROUTINE 





OF on ne Enea rere Tie CAL TO 
NCOUNTERE CALL T 
are 
Er A ERROR NING TO 
TWILL CON TAI AIN THE FOCLOMINC: 
1. AN ERROR MESSAGE 
¢- A DATA HEADER 
- & DATA STRING 


REFER TO THE FOLLOWING SECTION FOR THE DIFFERENT 
ERRORS THAT CAN OCCUR. 


ERROR TYPES 


THE ERRORS THAT OCCUR IN THIS PROGRAN NTO THREE 
(3) CATEGORIES DEFINED AND EXPLAINED A OWS : 


NON-FATAL ERROR 


DUE T ey one “ere FAILURES 
Mtoe HAIL 8 BE MREBORTED AS PueY AFTER REPORTING 
THE ERROR THE PROGRAM ic CONT The TESTING. 
FATAL ERROR 


THIS TYPE OF EAROR WILL BE THE RESULT OF_ANY KIND 
OF ERROR THAT iNaiet Ts THE PROGAAR TESTING THE DISK. 


THIS ERROR WILL BE REPORTED WHEN IT OCCURS THEN THE PROGRAM 
WILL ABORT THE TEST AND GO TO THE END OF PROGR 


FOe 


SEG 0017 
6.2 ERROR RECOVERY 


6.2.1 PRETEST ERROR 
WHEN THIS TYPE OF ERROR OCCURS iT T HILL PENG ANG 
ON po WAS yam SHIL Bac FoR THe RIVES BHD 
S FOR TESTING 
6.2.2 NON-FATAL ERROR 


+ ae ls OF ERROR OCCURS IT WILL BE REPORTED ANO 
LL CONTINUE IN TEST. 


6.2.3 FATAL ERROR 


WHEN THIS TYPE OF ERROR is rh REPORTED. THE 
PROGRAM WILL ABORT THE TES 0 THE END OF PROGRAM. 


Te RESTRICTIONS 


BEFORE STARTING THE PROGRAM THE OPERATOR MUST i THAT A 
Ow weno LOADED AND WRITE ENABLED IN THE DRIVE(S) 


8. MISCELLANEOUS 


8.1 EXECUT ION TIME 


i THE PROGRAM TAKES APPROXIMATELY 
N MI “Bu TIME INCREASES LINEARALLY 
FOR EACH ORIVE TESTED. 


8.2 STACK POINTER 


8.3 COMMON TAGS 


THE COMMON TAGS USED IN THIS PROGRAM START AT 1100 AND EXTEND 
UP IN MEMORY. 





8.4 


8.4.1 


G02 


TIMING TESTS (TST7-TST1l2) PRINTOUTS 


AT THE ga a on ant ne ae TESTS ie . Ue Te THE 
MINIMUM een AVERAGE OF AL 


SEEKS ty THE Nei Ks THAT 
ae MIN ay bE 
ie ca 
yo gta pie eae a 


pus FOR 2 are ee BETWEEN SEEK ae 


THIS AL we ny INCLUDED gue S. 
he cont MILLISE "Bee F i i. 
TiNes BEC FIED BY THE 
Bost HOVE AEN tne ONLY NOT A MENT 


at Po EFFECTIVE SEEK f 
TIMING TOLERANCES 
1. TEST 7 -- ROTATIONAL SPEED TIMES 


Sse suze 
faa Eee 
_ 
RAR 


T 10 -- ONE CYLINOER SEEK TIMES 


=z 
a) 
=z 


ELE 
rik 
B 
7) 


Bg 


3. TEST 11 -- AVERAGE SEEK TIMES 


4. TEST 12 -- MAXIMUM SEEK TIMES 


MINIMUM=46000 US 
MAXIMUM=S2000 US 
NOMINAL=S0000 US 


SEQ 0018 





8.4.2. 





TIMING TESTS PRINTOUT EXAMPLES 


ROTATIONAL D TIMES 
MIN=16670 


=16690 
AvO=1GE80 US 10 SEEKS TIMED 
ONE CYLI SEEK TIMES 
O ## 


at eesdy - 


409 7 eee TIMED 


pee Fo 
= final G, 03, 408 
AVG=S430 ie 410 SEEKS TIMED 


AVERAGE SEEK TINES 
## 0 TO 136 # 
MI 2 US 


Wersee30 US 128 SEEKS TIMED 
- 13% 7 or 


AVG=58220 US 128 SEEKS TIMED 


MAXIMUM SEEK TIMES 
## 0 TO 410 ## 


MIN=49990 

MAX=51980 

AVG=S1010 US 128 SEEKS TIMED 
## 410 TO 0 ## 

MIN=48120 US 

MAX=S0650 a 

AVG=49340 128 SEEKS TIMED 


ROTATIONAL TIMES 
MIN=] 


6670 
MAX=166 
Wesieeeo 10 SEEKS TIMED 


os, OU Ss 
AINceued ie 

MAX=10940 3 ABOVE THE MAXIMUM OF 10000 US 
AVG=5830 409 SEEKS TINED 


## 410, 409, 408,...0 # 

MI US 

MAX= US 

AVG= US 410 SEEKS TIMED 

AVERAGE SEEK TIMES 

“ 0 TO sana 

MAX=31620 US 73 ABOVE THE MAXIMUM OF 30000 US 


ie te - SEEKS TIMED 


MIN=28620 
Westen te 128 ABOVE THE MAXIMUM OF 30000 US 
AVG= US 128 SEEKS TIMED 


MAXIMUM SEEK TIMES 
“ O TO 410 #& 


I 10 US 
uNseaseo te 128 ABOVE THE MAXIMUM OF S2000 US 
AVG=' US 128 SEEKS TIMED 
## 410 TO 0 ## 
MIN=S2050 US 
MAX=S4SSO US 128 ABOVE THE MAXIMUM OF S2000 US 
AVG=S2e10 US 128 SEEKS TIMED 


102 


SEQ 0020 


JOe2 


END OF TEST 


Pa TEE STR BES ESR A er 


TYPEOUT WILL OCCUR WHEN aL IVES HAVE BEEN 


ALL OF THE COMMUNICATION WITH THE RH11/RPO4 IS ORMED 
VIA FSO RRIVER. THIS SECTION CONTAINS THE USERS QUIDE 
FOR DRIVER. 


- TO INITIALIZE THE DRIVER: 
JSR PC, RPINIT 
RETURN 


T EXAMI TA” mR, 9 Of 
e OR sti , Tie Drv R THRE tt 
R DRIVE. THE STATE WILL 


OFFLINE 
<0 raat OR NONEXISTENT 


NON-RPOY INDI INE. AND THE DRIVE TYPE 
TED TR Ire “Dnvive TeeLe, USING © TA” AND 


WITH 
WILL BE ly 
“DRVTYP™ THE FOLLOWING BE DETERMI 


ONL INE OFFLINE 


DRVSTADG ORV. TACO 
TYP=(RHDT) DRVETASO ae YP=0 


THE RPINIT ROUTINE WILL DO A READIN PRESET AND WILL SET FNTe2. 





8.6.2. ato DRIVER HAS BEEN INITIALIZED YOU CAN USE IT TO PERFORM SEQ O0e2 


JSR RO, RPOS HEME. THE 
a Bg) foe 
ERROR CONDITION 


“DPB (DATA PARAMETER BLOCK) 





PNTOPB: .BYTE 50) NUMBER 

“BYTE e $2) T VALUE OR FMT22, ECT, AND HCI 

-BY :(3) AND A17 Alb 

oR 6 iS ee ( the NEG. ) 

.BYTE 0 8) TOR "eR 

.BYTE 0 (11) K i OR 

WORD 0 Last fet 

sand HU hs 
eee ae 

WORD 0 aE ASTER at sa ‘ 

ite RROR OCCURRED 
*BITO7=s1=>0 
eI TT09 AND BITO6-BITOS 
TINDICATE TYPE OF ERROR 


8.6.3. 


8.6.4. 


THE DRIVER PROVIDES A SOFTWARE TIMEOUT CAPABILITY. 
L we THIS CAPABILITY YOU MUST SUPPLY THE “RP TIMER” ROUTINE 
TH THE ELAPSED TIME IN THE FOLLOWING MANNER: 


MOV #16.,-(SP) tAP Lb FE ONOS BETWEEN 


JSR RO, RPTMR ;CALL THE TIMER ROUT'NE 
IT aceite ere | YOU MUST PROVIDE N MILL TSECONS, TO DRIVE THE 
ef DRIVER ie he 1 ECOND 708 AL an tetas 
a TINOUT 
DATA TER ERROR RECOVERY OPERATI 


EXANPLE - WRITE 1000. WORDS 
1$: app RO, RPO3 cane tel VER 


BR 18 WAIT FOR QUEUE IF 
2s: TST WRTDPB+16 WAIT FOR COMMAND 0 USOMPLETE 
Be l ERROR OCCURRED 
WRTDPB: .BYTE 5S DRIVE #5 
-BYTE QO : 
“BYTE ie “WRITE COMMAND 
‘ 1000. : T 
WATBUF 5s 
BY 2 ; SECTOR 
"WORD 400 iM 
“WORD ERRTBS t ERROR TABLE 
“WORD «OO STATUS/ERROR INDICATOR 


S a s THIS SETUP ACHIEVED 
‘ WR TBUF abe Te Pen Pika" 
‘BYTE 3,5 

“WORD ©. 400, ERRTBS, 0 


SEQ 0023 


8.6.5. RH11/RPOY REGISTERS 


es fe 


DRsoRDEseSRIRTORES 


RHEC1 
RHECe 


8.6.6. COMMANDS PERFORMED BY THE DRIVER 


RECALIRATE 

DRIVE CLEAR 
RELEASE 

OFFSET 

RETURN TD CENTER 
READIN PRESET 
PACK ACKNOWLEDGE 
SEARCH 


N 
N 
Pp 
P 
N 
N 
Pp 
Pp 
N 
N 
Pp 








GET REGISTER(S) 

SET FORMAT 

SELECT DRIVE 

WRITE CHECK DATA 
saber 0 
WRITE DATA 

WRITE HEADER & DATA 
READ DATA 

READ HEADER & DATA 


HOUSEKEEPING 

Pera toes 

SPECIAL PROVIDED BY THE DRIVER 
8.6.7. OPB STATUS/ERROR INDICATOR 


THIS INDICATOR WILL INFORM THE USER OF THE RESULT: 
’ hee ACCOMPLISHED BY SETTING VARIES BITS OF THE IND 


N 
Pp 
D= 
$= 


BIT NO. MEANING IF ON A “1” 


iS 
(BITO7 


14(1) USER 
BERFORMED ON AN OF 
13(1) Wee 45:3 6 ReRUES 
UNL BaD PEO Meer IN IN 
12(2) PERSISTENT UNSAFE CONDITION EXIST. 
11(2) PARITY ERROR OCCURRED 
10¢2)(4) FATAL PARITY ERROR. A MASSBUS CLEAR WAS 


ORMED, ALL QUEUES WERE EMPTIED, AND 
ALL DRVACT’S SET TO THE IDLE STA 


OCCURRED 
(BITO7=0); : BH 
=1); BIT 
F 


S 
S 
OR 
NE 


QUEST 
FLI 
roe 


963)¢4) 


84) 
7 

6(2) 
$(2) 


4{2) 
3(2) 


(3) 


(4) 


B03 


SOFTWARE TIMEOUT OCCURRED ON THIS ORIVE 
SOFTWARE TIMEOUT OCCURRED ON ANOTHER ORIVE 
DONE 

ERROR OCCURRED DURING AN 1/0 OPERATION 


ERROR OCCURRED DURING AN OPERATION 
OTHER THAN i/0. 


UNSAFE CONDITION OCCURRED 


DRIVE ERROR OCCURRED THAT CAUSED AN 
AUTOMATIC “RECALIBRATE” SEQUENCE 


REQUEST wrNae T (RH1i/RPO4 
REGIS 


REQUEST QUEUE HAS BEEN EMPTIED. THE DRIVER 
ISSUED A “DRIVE CLEAR" TO m2 ORIVE 


NOTE: RH11/RPO4 STERS ARE SAVED 
Ne Ben bpas is SEF ORE THE “DRIVE RL BAR 
REQUEST QUEUE HAS BEEN EMPTIED. THE 

DRIVER ISSUED A MASSBUS INIT. 


11/RPO4 REGISTERS FOR THE ORIVE WERE 
SAVED AS PER OPS+14 BEFORE THE INIT. 


AS 
A “RECALISRATE™ SHOULD BE ISSUED 
BEFORE ANY OTHER COMMANDO. 


SEG 0026 


ERROR CALLS MADE BY THE DRIVER. 
THERE ARE A FEW ERRORS THAT CAN OCCUR THAT CAN NOT BE INDICATED IN A CPB. 


SEIS AT PMS PLE MDS OU'E He hl 
AND THE ERROR WILL BE AN EMT INSTRUCTION. 


TYPE DATA AVAILABLE 


ILLEGAL suas YsTeh 
fan” OCCURRED 
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30 = NORMAL START 
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geree 
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FT: 
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IT: 
FS 
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Pi} COMMON 
‘3) 001522 -WORD ftD410 ;"FC" 

(3) 901524 Gooese .WORD © *O410 ink 

(3) 001526 WORD to410 "TC" 

(3) 001530 - WORD Dl ;uPT" 

(3) O01 ¥ tD18 “LT 

(3) O01 ooonee .WORD ¢D18 ed Ve 

(3) O01 s ‘Del el 5 

(3) o0154 tel tl A 

(3) o01S42 177777 - 177777 :“PAT” 

(3) -TABLE OF MESSAGE POINTERS 

{3) OO1SY4Y 034376 PRNMSG: .WORD MSG.R 

(3) 001546 O34400 .WORD MSG.FC 

(3) O01 034403 “WORD MSG.LC 

(3) 001552 O34406 .WORD MSG.IC 

(3) 001554 O34411 -WORD MSG.FT 

(3) 001556 O34414 - WORD MSG.LT 

(3) 001560 034417 4 MSG. IT 

(3) 001562 O34422 .WORD = MSG.ES 
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\ 
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(3) O01 164 ‘ MSGB1O FATAL PARITY 
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(3) O0ibi2 036444 “WORD  MSGBO3 SAUTOMATIC RECALIBRATE SEQUENCE OCCURRED 
(3) “DEFAULT VALUES OF TESTS PARAMETERS 

(3) 01614 000225 12 000632 OFLT: .WORD 225,10.,410.,0,0 ;RECAL/SEEK (TO) 

(3) O0lbe2 e000 

(3) 001626 0006 .WORD 677,100.,0,128.,0,0,0,0,0 ;SEEK/SEEK (T1) 

3) Bele nee 

(3) ranted re -WORD 237,1,0,410.,1,0,0 ;INCREMENT SEEK (T2) 
BIS Bias 

(3) 001666 ro .WORD 237,1,0,256.,1,0,0 ;STEPPING SEEK (T3) 

(3) Soler 900400 

(3) O61 000000 pi 

(3) 001704 37 -WORD 237,1,0,410.,1,0,0 ;OSCILLATING SEEK (T4) 

2 Bis 
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(3) 001736 eine 
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{3) 001746 000632 
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(3) 
eh .WORD 223,1,0,0,0 sROTATIONAL SPEED TIMING TEST (17) 
(3) .WORD 1,1 ONE CYLINDER SEEK TIMING TEST (T10) 
(3) : 11 ;AVERAGE SEEK IMING TEST (T11) 
(3) ; 11 "MAXIMUM SEEK TIMEING TEST (12) 
(3) “WORD  23,1,0,0 SECTOR ADDRESSING TEST (T13) 
ft .WORD 203,1,0,0 sTRACK ADDRESSING TEST (T14) 
(3) .WORD =-:1777,1,0,410.,64.,0,18.,1,1,0,177777 ;DATA TEST <T15) 
3 
(3) .WORD 7,20000.,0,410. ;EXERCISER (T16) 
(3) 
(3) ;PARAMETER TABLES 
(3) -RECAL/SEEK (TQ) 
(3) o02062 PRNO: .WORD 225 
(3) Q0e068 RPTO: .WORD 10. 
(3) LO: “WORD 410. 
(3) 002070 "Cts 0 
(3) 002072 FSO: .WORO O 
(3) -SEEK/SEEK (T1) 
33) 002074 RAI: «WORD 677 
(3) 002076 RPTI: : 100. 
(3) 02100 FC]: .cWORD O 
(3) Sein oS 6 
(3) cng 00 FTl: [WORD 
(3) 002110 9o00000 LTl:  . WORD 
(3) OO2ll2 og0000 FSi: . WORD O 
3) 002114 900000 L51: WORD O 
(3) INCREMENT SEEK (T2) 
{3) 002116 000237 PRM2: .WORD 237 
(3) melee RPTe: “WORD i 
' r $ e 
{3} post 0006 32 ts “ORR 410. 
2 See Ba ee 
3 002132 rieeey FSe: “WORD 
(3) -STEPPING SEEK (T3) 
(3) 002134 000237 PRM}: ° BBS 237 
(3) 0021 3% 900001 RPT3: . WORD 1 
(3) O0el Fc3:, <WORD O 
(3) O0el42 900400 LC: “WORD 256 
ey 902144 90000! C3: [WORD 1 ; 
(3) 002146 000000 ae “WORD 0 
(3) Od2ise cococo FS3: .WORD O 
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Beceed Sagdaeuuueuseeed Saddeenseddaaads 





2 
oS 
2 
2 
g 
2 
5 
a 

Ss 


MACYI1 27(663) 


CAL AND READ/WRITE TEST™ 


"tas 


;PATTERN 12 
;PATTERN 13 


RABERCRERRRRES GREGG MGUUIGGAD ERRCAARRC RARER 


a eee} Od a ah a ed Sh ed eH 


EE Ses Saas 


FSB SSSSSSECSS SSCSSIES G5 GN G5 Es HN oe BE SSSESS SSCS SSS 


somo" ee ee ed oh ed ed ed ed oe eg eg ond oe) mt} ee OG mG hd ad ad nd Ot ws 9 Od 


ee eee: 


Fe Ly I I Fy LO, LO, Ly Gy I, Gy GF, Gy GO, GI, GO, Gy Gy Gy GF, GO, Gy, FO, Gy Gy Gn, GO, GI, Gy FO, GN, GI, GN, Gi, GN, ON, GN, my Gay Gm, GN, I, I, GO, Gin, GO, GN, GN, FO I LO 


MOMMMMMMMMMMMMMMMMMMMMMOM MOI MMM MM MOM OIMICIN : we 2S IID OID CIM IOI. ED 


ee Ne et Se ee ee Se et See Se See See St Set See See See See See See See eee See See See eo Seed Se? 
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16 PAGE 42- 


23-JAN-76 10: 
;PATTERN 15 


3 
S 
¢ 


~ 
anoo!t 


“MECHANICAL AND READ/WRITE TEST” 


-B 
COMMON TAGS 


es eg fl mmges 
ee a 


LOLOL PL I yy Fy Fy GF, Gn, Gy in, ny Gy Ge, iy Gi, i, I, i, Gy Gy I, Gn, Gi, Gn, in, ny, GO, I, Gl, I, Gi, Ly Ln, Gm, I, GN, GN, GO, LG I, PLR ORONO 


MMAMMMMMMMMAMMMMMMMMNAMMAMMAMMMMAMMOMMMAMMMAMMMIMMMAMMMAMMM 


SF Se et el el Se Sl See Seed Ce Se See See See See See eee ee See Se Se Se See See Se See See oo Se See Set ee See See See Sh See See Se Se Se Se See Set Set See Set Set St See Se See Set See” 


MAINDEC-11-OZRPK 


OZRPKB.P11 
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T_OF TWENTY 


inS°40 Stone’ The RL 1 RPO 
NUMBER 
EVADE 


VALUE OR FMT22, ECT, AND HCI 


xX 
AaL POIRTER 
T VALUE OR FNT22, ECT, AND HCI 


T REG 


) 
) 


;POINTS TO THE F 


if 


in r 


re 
nent a of 


2 
2 
z 
& 
: 
S 
3 


HERB Re. nec 


oO 


“MECHANICAL AND READ/WRITE TEST” 


-B 
COMMON TAGS 


a= °° 
SE: 


CVD ODOM D ILI D CD LI ILD LD LDL DLDED PD. CEDLD LD CDPD LPICHD LED CPD CPDLMD CDCI CPD CPDL ODED OPIOID OD OD ODDO OD OIODOICOIOD OID 


ee ee ee et Se Se et St Set Se Set See See eet Re et St Se See Set See Se Se See Se Set Se See See St Set Se Set See See Se See See Set See See See See? See See? Set Se” Set? 


11-D2ZRPK 


MAINDEC- 
DZRPKB.PL1 
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8 
OUNT 
SS 
D SECTOR/TRACK 


7 
oe ae 

ree 
RepeReREeeeeeeeeeeee 


Beer erry 


PO CH OD OH EM OM OF. OCD EDEREMOS OH ECBEHREB EROS OH 


ON AN ERROR. IF LEFT 


GISTERS ARE NOT SAVED. 
ATUS/ERROR INDICATOR 
1 Soar 
Bus AOR 


? 
2 
2 
¢ 
i 
& 
g 


MACY11 27(663) 


YQOOOWOOOWOOO0000000000 


suaaaaeesssasecseess 


ITE TEST” 
;SAVE RH11/RPO4Y REGISTERS HERE ON ERROR 


“MECHANICAL AND READ/WR 


COMMON TAGS 


6 0 sBSEGBGESEEGBGEEEE: 
6 SE 


LQ LOLOL LOO LO LO Ly Fy Fi, Fy Fm Pm, Fm, I, Gn, Gm, Gi, i, fi, Gy Fn, Gm, Gm, Fm 


SILI IO IOI OIL IOI IOI OI OI OI OI OID OI OI IOICOIOI MOD OIOMOIOIC ICICI 


et ee Se et Set Se ee See Se See Se Set Set Set See See See Se See See? See See Se See! See See Set = Ne See See Se? 


11-DZ2RPK-8 
OZRPKB.P1) 


MAINOEC- 
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OZRPKB.P11 COMMON TAGS 


tu 


NO me ee es ee ee ee es a ee ee ee 


7 HIHGHBIH HEHEHE HHBHHHHHEHBHHHH HEHEHE EHHEHHEHBEHEEE 
-SBTTL ERROR POINTER TABLE 


z 
2 


;*#THIS TABLE CONTAINS THE I 
;#THE INFORMATION IS OBTAI 
;#LOCATION SITEMB. NUMBE 
; #NOTE1: IF $I 


; *NOTE1: i 
; #NOTE2: EACH ITEM 


QUND_IN 
THE TABLE IS PERTINENT. 
A_IS (SERRPC). 
INTERS EXPLAINED AS FOLLOWS: 


a 
43 Os, 
UMWMwn Mw 


pms fine Lo peo meee Jens Pemo fens Pro Pt De fo tne fp pie fee pes he Pee 
=z 
=~] 


“ 


MN 
RPOY INTERRUPT OCCURRED 
C ORIVE RHAS RHCS RHER1 RHER2 


RHER3 
SREG] SREGS RPERRS RPERRS+2 RPERRS+4 RPERRS+6 


ERROR ITEM 3 
MASSBUS PARITY ERROR (MCPE=1) 
C ADDR 





READ/WRITE TEST” MACY11 27(663) 2@3-JAN-76 10:16 PAGE 43-21 


NAINOEC<11-DZRPK-8 “MECHANT 
OZRPKB. PLL ERROR POINT 


CAL _AND 
ER TABLE 


ERPOR ITEM 
SBUS P ARITY ERROR (PAR=1) 
TEST ERR PC AD at cooaTa gp BODATA 
STMPO SERRPC WRT. RO. WRO 
EMY 
DHY 
OT4 
OF4 


ERROR ITEM S 
OR A op DRIVE INTERRUPTED 


S l RHER2  RHERS 
SRecs RPERRS RPERRS+2 RPERRS+4 RPERRS+5 


ERROR ITEM 6 -- NOT USED 


0 
4] 


Q 
0 
ERROR ITEM 7 -- NOT USED 


A LED TO RESPOND TO ADDRESSING 





si tomate” “MECHANICAL AND READ/WRITE TEST” MACY11 27(663) 2@3-JAN-76 10:16 PAGE 43-22 SEQ@ 0053 
OZRPKB.P21 ERROR POINTER TABLE 


5807 
2a8 H “Tee 
+ oe bara 
5810 3% age “EP {st A DRIVE CYLNOR TRACK SECTOR 
81 i HKDRY vr L. OS al TRK.DS SEC. .OS 
13 # YL. ore a Ro SEC. RD 
Ea :# muna “Finot" ans Ss ce atm, 
S8i6 003720 035576 Emile 
S817 003722 036773 DHie2 
5818 003724 o400S2 Tle 
5818 003726 G4O410 OF 1 
aes ;# ERROR ITEM 
eas ss Dare ae Fal pC TRACK SECTOR 
sec4 ri SFReo 0 aGEREE Bee kyLNDe TRK.DS SEC.OS 
SEP + T ey BO SSORGR 
Be i a, a nage AND SOOT ARE DECIMAL 
5829 FMI 
S830 003732 036773 12 
S83i 003734 O40104 OT13 
e832 O40420 DF13 
5834 ;# ERROR ITEM 1" -- FOLLOWS #13 
S86 i SGDDAT SBODAT SREGY SGDADR SBDADR 
5837 000006 0 
5838 003742 on0000 0 
5939 040122 OT13A 
pet 003746 040430 OF IY 
c342 3% 1 ITEM 1 
eeu . es conpaRE FA 7 T PC DRI Cc TRACK SECTOR 
5au5 ir SP RRPE She SR Oey CYL.0S TRK.OS SEC.0S 
S846 rr GDDAT T NT GDADR  BDADR 
5847 + $GDDAT T SREGH SGDAOR SEDADR 
B48 2 CYLNDOR, TRACK, SECTOR, AND WROCNT ARE DECIMAL 
5850 003750 EM13 
5851 003752 OH12 
Sse 003754 40104 O713 
853 003756 20 OF13 
cess :# ERROR ITEM 16 -- FOLLOWS #15 
S858 * $GDDAT S$BODAT SRESY S$GDADR SBDADR 
Sass 903760 o0000c 9 
cess 003762 000000 0 
5e60 003764 O40le2 07130 
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OZRPKB.P ERROR POINTER TABLE 


CO3766 940430 OF 14 
ERROR TT A vn 
Feet ; Be DRI TESTHCS! RHOS RHER2 RHER3 
§ SERRPC RP.REG RP.REG+12 RP. Re REG+LY RP.REG+40 RP.REG+4e 


RHER 1 RHER2 RHER3 
RP.REG+12 RP.REG+14 RP.REG+4O RP.REG+4Ee 


ERROR ITEM el 

DATA COMPARE FAILURE 

TEST ERR PC IST FC ORIVE CYLNOR TRACK 
C_ SREGO CHKDRV CYL.OS TRK.DS 


ae, eee Bet 
» TRACK, WROCNT, AND SECTOR ARE DECINAL 


ERROR I ear OWS #21 
T SREGY  SREGI 


: 
pigih 
; LEERERLELASLRELALELEELALLAAE ELLE SL ELLE LES AE SAR ELERELLAELERARESER 


t'teon [tee 240 MTU 


SE ee tal ie il” FY TET 1 re rom 


RH11/ 


Be rea tase Sh EES 


) pay ty IVE REQUESTED 
) PERSIS a 3 
4) PARITY ERROR OCCURRED 


We vO OO a ee OO OR OC 8 
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OZRPKB.P11 ERROR POINTER TABLE 
ee T ON N ANOTHER DRIVE 


0 OPERAYTON 
D DURING NON-170 OPERATION 


T ERR PC TST PC DRIVE RHCS2 
sTReO SERRPC GO RP. RE 


RHOS 
CHKDRV -REG G+10 RP.REG+12 


RHCS2 RHOS 
RP.REG+10 RP.REG+12 


SECTOR 
SEC.DS 


RHCS1 RHC RHOS RHCC RHODA 
at RP. REG+10 RP. Feces RP.REG+36 RP.REG+34 RP.REG+06 


RHER1 
RF.REG+14 = RP.REG+4O = RP. REG +42 
CYLNOR, TRACK, AND SECTOR ARE DECIMAL 


EMY 1 
OHle 


er we ee es ee ee we oe we 
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OZRPKB.P ERROR POINTER TABLE 


4 THY 
Bae ONDE a 


ERROR I 
LEER Bane onsen mex gr 
5 SERRPC YL.OS 


RK.0S_  SEC.DS 
RHCS1 


RHCS2 RHOS a RHCA 
RP.REG RP.REG+10 RP.REG+12 RP.REG+36 RP.REG+34 RP.REG+06 
RHER I RHE’ RHBA RHO 
pte yg af gt RP.REG+42 RP.REG+2 RP.REG+4 RP.REG+E2 
CYLNOR, , SECTOR ARE DECIMAL 


EM4 
pa 


5969 
5970 
$97 
5972 
$973 
5374 
S976 
5977 
5979 
5981 
5983 
5984 DFYS 
5985 
5987 
5988 
5989 
5 
5991 
5993 
S334 
S995 
5996 
$997 
5999 


@eee ee OS Oe ee ee we we 
ble ole oN oe Me Me aM ote ol 


ERROR ITEM 46 
FATAL WRITE CHECK BOR SED NOR 
TEST Pas’ As ORI TRACK SECTOR 
STMPO 0 KY er be TRK. ong SEC.DS 


RHODA 
RP. REG we G+10 RP.REG+12 RP. e% RP. REG+OY RP. REG+06 


RHERI RHBA RHO8 
reat 4 ee REG+4O RP.REG+42 RP.REG+2 RP.REG+4 RP.REG+22 
NOR, K, AND SECTOR ARE DECIMAL 


Wee ee Wie aie abe aoe roe oe 





ROUTINE 


vgcror FOR ERROR ROUTINE 


VECTOR FOR TRAP CALLS 
OF 
ON 
BUFFER REG’S 
200 OR 


NTER 
RAT 
ERROR Ss 
LOOP ADDRESS FOR SCOPE 


haa SUE 
LOOP ADDRESS 


STORAGE 


ERROR PER 
ERR 
ATUS AND 
STAR AT 


FLAG 
Pay Otte 


T 


“—" 
; ROBRANE TERS POINTER 
PATO DEFAULTS TO PATTERN 8 


JAN-76 10:16 PAGE 43-26 


;LOCK OUT ALL INTERRUPTS 


NO CONT 
- 


At TT-DZRPK-B “MECHANICAL & REAO-WRITE” TEST/ 


;SET CONTROL “C™ FLA” 
FIRST L 
F 
L . BACK IF NO 
0 
is 
AOA ge 
ses 
CLEAR VARIA 
: DONE? 
oerue 3 st 
PE “To” I 


;SET BUSADR FLAG 


c 
Cc 


2 ee 
& ee 
a ee 
cc 3: 

C ° 
sks 


jes 


Renee ae BF: 


Bees aa 
gs SER SEEREN 8 
tet Sees ee 
AG ceaseaseeeSt eee eet 


Soupekededcbenedemeasan 
OovdMnndowwo 


ACK, SP 
3 
ins 


TRG, 
STkS, Re 


8 
™ 
cu 
os 
3 
Po ¥ 
~~ 
“ 
2 


8-1 oe 
sCNTRLC 


ar 
1240 aePs 


22 
S eres mS SESTS 


-SBTTL START OF PROGRAM 


START: 


ee 
we 
oe 


ee oe 
A £ 
~~ 


001216 STARTY: 


a oowziy STRTeA: 
77776 


1 


177777 001216 START3: 


“MECHANICAL AND READ/WRITE TEST” 
001100 


? 


ERROR POINTER TABLE 


11-O0ZRPK-B 


MAINOEC- 
DZRPKB.P11 
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OZRPKB. START OF PROGRAM 


Fints ISR sCHECK FOR A LINE PRINTER 
ed oo STURN ON THE TTY KEYBOARD 1 


a i 


0047 
004737 


HG 
Pz=e 
Lz 
eas 


OP DR 
; Res I 
"Sekt RESTART? 
iYES ocr! PARAMETERS 


;NO_DRIVE ire 
se TERR DRIVES THAT 


OR TESTING 


SaBBSSse 
ae 
3 


se 
: 


PEOPMMOKKNOroo 
fe ae Bs ee be ee 
ea ee 


g 


DYSTACRO) 
TASIT (RO), @sORVSEL 


tes 


SEER SRS 
8 
x 


pa st 24 e bata TRANSFER? 


Ae 


; TYPE ASCIZ STRING 


“ani 0 fe hati / 

ie paves 6 6 TO MAKE AND 
age 

VF PE pec STRING 


3;GET OVER ASCIZ 


Z 


282 QRSPeREER Us PERERA 
+ 


: 


iar 
: BaRSoe 
ny 


: 
ae 


Me ae 


8 
4 


S TO BE TESTED 
nous DRIVE A PASS 
BS al 
ie pRives? 


TYPE ASCIZ STRI 
3;GET OVER ASCIZ 


$F Po ~~ — Pooh —-- ~ PR 


sh he he me be ae ae Po ee 
LCD NB es we we OPT EI wee we we SS = 


RRRcoo RR 
88 52 
Pe Seet otek 
itnin BREE 


—_—T 
7 ow 

J 

. 

° = 


;FORM ORIVE NUMBER 


—8 


Pll 

E 
Bat 
O04S22 
aes 
ee 
OO4S46 
ee 
O04S60 
ee 
004574 
ae 
004602 
Se 
raat 
Bie 
004662 
O046b2 
004655 
004670 
004674 
004676 
004702 
004712 
004712 
004716 
004720 
00472e 
004726 
004730 
004732 
ae 
ae 
004744 
ae 
004752 


foro 
ou 
By 





NEEDS INITIALIZED 


TRING 


-?P yf ee 7-12 WILL NOT BE PERFORMED/ 


IGITS TO TYPE 


STING OR 


ok: 


23-JAN-76 10:16 PAGE 43-28 
;NO--ANY TIMING TESTS TO BE PERFORNED? 


MACY11 27(663) 
, SaSEOPCT 

;KW11-P AVAILABLE 
; YES--BRANCH 
ti oeT 

€15>¢12> NO’ KWLL 
 sTYPE 
CET 

«15><12>«1357 


=f fiitoat 
eine 1 ee | 


72 Saeed sear 


@eSENOCT 


013650 013652 8$: 
001226 


START OF PROGRAM 


Seehts om Sees ES Ee 
Eecncee Babaodate BasudeusaaeiNebnoo GRGMNG Bebe 
Sat == SS ISRO RRA UR SS=gSSaR SSR 


MAINOEC-11-DZ2RPK-B “MECHANICAL AND READ/WRITE TEST” 


pelea 
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;PUT THE NEXT OIGIT 
; INTO 

sMAKE IT ASCII 
CAVE IT 


; TYPE 
sALL DIGITS TYPED? 
:NO -= BRANCH 


ROL 
ROL 
ROL 
ROL 
ROL 
ROL 
ROL 
i 
WORD 
TYPE 
DEC 
BGT 
TYPE 
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DZRPKB.P PROGRAM 


ll START OF 
-SBTTL seee TESTS sees 


SRN ZENG ZENG ZENS ZBNS ZENS ZENG RNS CBNS ZENS JBN SG ZRNG ZENG ZENS ZENG ZENS JENS ZEN: 
3 /#\: TENS ZENS ZENS ZENG ZBNS ZING ZING ZBNG ZING ZENS ZRNG ZING ZING JANSEN ZENS ZENS 
3 /#\: ZENS ZANE ZING ZENG ZENG ZBNS ZING ZRNS JANG ZING ZING ZING ZS SENG ZENS ZENS ZENS 


;#IN THE DESCRIPTIONS OF THE BELOW TESTS THE VAR 
;#AND THEIR DEFAULT VALUES (UNLESS SPECIFIED 0 


VARTABLE 


ITERATIONS (REPEATS) 
FIRST CYLINDER ADDRESS 
CYLI ADDRESS 
NEW OR MODIF te CYLINDER 


S 
NEW OR MODIFIED CYLINDER 
ADDRESS 


CSF ar see 
INCRETENT VALUE 
NEW OR MODIFIED TRACK ADDRESS 


F ARST ones lan Fooe $s 


572 NRA NB NBS NZ 8 NZ SNR 3 NBS NZ SNR NZ SNR SNR 5 NB 3 NR SNR ENR S NB NE 
5/3 NZ NZ NR 5 NZ 5 NZ NR NZS NZ NZ NZ NZS NB SNR ENB ENB NBS NB NE 
g 72 NZ 5 NZ 5 NARs NB 5 NZ 2 NZS NZS NBs N97 NZ SNR NBR SN SNR NB ENB SNES NE 


-SBTTL ### SEEK TESTS (0-6) ### 


S7BNS ZENS ZENS ZENG ZENS ZBNS ZENS ZENS ZENS ZENS ZENS ZENS ZENS ZENS JBN ZENS ZENS ZENS 
g7RNSZRNS ZENG ZENG ZING ZN JBN G ZING ZN ZENG ZENG ZN ZN ZENS ZENS ZENS ABN ZENG 
§7HNS ZENS ZENS ZENG ZENS ZENS ZENG ZN SG ZBNS ZENS ZN GS ZENS ZING ZENS JANG ZONE ZENS ZENS 


S4THE SEEK TESTS WILL TED USING. NPL S. THESE 
s SINBLIED SEEKS MILL set PERFORNED BD HEROER 
TH" COMMENDS 9 TRACK “FT” SECTOR Pre OF THE Besineo CYLINDER. 


;#0R 
;#THE WORD COUNT set eine t THE C 
; ¥TRACK/SECTOR oF THE R ARE 


p72 NBS NB SNRs NBS NBR 8 NZ 5 NZ 8 NZS NZS NZS NZ 5 NBS NZS NB NZ NBS NB SNE 
t/s NZ NZ NZ 2 NZS NZ NZ SNRs NZ 8 NZ NZ 8 NZS NZ 5 NZ NR NR NB SNR ENE 
°/3 \B/ 2 NZ 3 N87 5 NBS \8/; Na NZ 5 NZ NZ NZ NZS NZ NZ NZS NZ NR NB NE 
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DZRPKB. TO RECAL/SEEK TEST 


5 SE GH HHH HHHHHHEHBHHEEE HEHEHE 
;#TEST 0 RECAL/SEEK TEST 


THIS TEST THE ORIVE TO EXECUTE A Res 
eee Of Saget bl 
ore eK Sr Wie tee NO OERTED: 1b fires, 

jE HHH HHH 


tsTo 

DeBITS+<Ox2>, TS . ;00 THIS TEST? 

fs ;, Vest Bran NEXT TEST 
oaneTO, $7 res GET THE ITERATION COUNT 


rsi0 SSLPERR ;SETUP THE ERROR LOOP ADDRESS 


, aa$TSTNM sSET UP TEST AND 
ne ERROR FLAG (SERFLG) 
:L0eD TEST NUMBER INTO THE DISPLAY REGISTER 


: 


64S: 


Cet ae te ee ee ee ee ee ee ee 
ee ee ee ee ee ee ee ee ee ee ee ee ee ad 


WWIWWWE£ELWWE Eo 


a 
ES Ses 


TESTO: 


geesaeas 282847" 


JSR 
EXITO: SCOPE 


5.330280 38 2g gE EE 
;#TEST 1 SEEK/SEEK TEST 


ha T WILL ue I DRIVE TO EXECUT SEEK 
(a Boe te ee Rh SEEK CYCLE 1 


B 
: THE 
J 
: whe EXAM At THe OPERATION. 
: i WILL mati "5 35 Bao ere "LT", “FS*, AND “LS” 
: nats rect ar i one REPEATED 100 ans 

+ SHESHSESCERRSLSRE SASS LEMLE SS ERARERSRSRA LS LSRARABRERAAKHSSRSSSRE 


tsTi 
ees TSTNNS 109 THIS TEST? 


*NO--GO TO THE NEXT TEST 
QeRPT1,STIMES  :GET THE ITERATION COUNT 
ate T1' 3aSLPADR 

L,QNSLPERR ;SETUP THE ERROR EOP ADDRESS 

tl angTethe ef UP TEST NUMBER AND 
AR THE ERROR FLAG (SERFLG) 
STSTNM, 2 sOISPLAY THE TEST NUMBER INTO THE DISPLAY REGISTER 
sual sare eld 0 


ce 


6338 
6339 
6340 
6341 
6342 
6343 
6344 
6345 
6357 


PRP PRP LR LR PR LOR LER PR EPO OPP OO PO PF 
WWWWW Ff £LLWWEE ECCLES ECW 
Ne ee a a es ee a ee ee ee te tee 


Bi 








a 44 eee 
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5 


“FC 
§ 
“LC 
MOV sBYPASS ;60 TO EXIT1 ON ERROR 
TESTI: *SET THE STACK POINTER 
J d :60 EXECUTE THE COMMAND 
ISR ' GO EXECUTE THE COMMAND 
EXIT1: SCOPE ;LOOP 
5 RELEASE RR EERE LEE EEE EERE EEE ERLE ARES EREREELEL ELE E ERLE S 
#TEST 2 INCREMENT/SEEK TEST 


SSEEEGEERE | 


THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE 

CYLINDER ADDRESS FROM “FC™ TO “LC™ BY THE INCREMENT “IC™. 

WHEN THE RESULTANT CYLINDER SS_(NC) EXCEEDS 

"LC" REVERSE SEEK CYCLES ARE INITIATED: STARTING 

AT THE LAST LEGAL “NC™ AND DE ING BY * 

UNTIL “NC* IS LESS THAN "FC". AT THE COMPLETION OF EACH 
THE PROPER INDICATORS ARE EXAMINED TO 

INSURE PROPER OPERATION. 


mani onpanoe a pdgapapni amen cenesicass ComigeeatGaRt Pace 
¢ DUgITS+«2k2> , TSTNNS DO THIS TEST? 
64 : YES-~ 


IMP TST3 *NO--GO TO THE NEXT TEST 
64S: QeRPT2,STIMES :GET THE ITERATION COUNT 

MOV sTESTe eae 
8TST2,a8SLPERR ;SETUP THE ERROR LOOP ADDRESS 
82, JS TSTNM «SET UP TEST NUMBER AND 

CLEAR THE ERROR FLAG (SERFLG) 

STSTNM, S8DISPLAY LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
deFS2,ae0PB.8+10 ;FS 
de Te, a8OPB.B+1l :FT 
SEXIT2, a8BYPASS ;60 TO EXIT2 ON ERROR 
aSTACK: SP “SET UP THE STACK POINTER 
QeFC2, M8OPB.B+12' FC 


BO 0s DOK Die i he ate oie 


BS 
se 
Re 8 
8 8 


Ne ee ee ee ee te ee a 
ons 


WWW) 6 ££ LWW EEE) 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
¢ 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


— 
Some 


eee 
2 2R&o REeBeR 


Q00rF.-O 2000 
ft bee 


gg 


RO,2 .B -GO EXECUTE THE COMMAND 
geiCe, gaDPe. Bre sMOVE TO NEXT CYLINDER 
sLCe,a8DP8.8+12 ;OUT OF CYLINDERS? 


SES ara. eie 
aLCe, a8DPB.B+12 


Cll anal 


Siren ett Lets 
B RR 


;G0 EXECUTE THE COMMAND 


RE 
RRS 


CMP 
BL 
ExIT2: SCOPE 


5 46 966963 gg A 4 9 a a a a RR 
;¥TEST 3 STEPPING SEEK TEST 





{ 1S) oe) ee ] 
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OZRPKB.P11 T3 STEPPING SEEK TEST 


% it BUR eather, Sa CHAE TRO alte 
Bates’ SHE-PROPER INDICATORS ARE EXPLAINED 10 INSURE PROPER 
OPERATION. 

Spe = apetne ase aioli waagbete me ne, 

A Q8BITS+< 32>, TSTNMS ;D0 THIS TEST? 

64 : YES--BRANCH 


TSTY *NO--GO TO THE NEXT TEST 
64S: GET THE ITERATION COUNT 
#SLPADR 


;SETUP THE ERROR LOOP ADDRESS 

sSET UP TEST NUMBE 

CLEAR THE ERROR FLAG (SERFLG) 
TNM, J8DISPLAY LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
$4, 980PB.B+10 FS 
T2 “Bell :FT 
#EXIT3, a8BYPASS ;60 TO BYPASS ON ERROR 
TACK: SP “SET UP THE STACK 


Qe0PB.B+12" sFC 
é GO EXECUTE THE COMMAND 
CYLINDER 1 
DESIRED CYLINDER 
;GO EXECUTE THE COMMAND 
;MOVE TO'NEXT CYLINDER 


$ NO-=LOOP 


ge 
engy 
S2R5 


ce 
£ 
= WIWWWI ££ CWE 


pm Owe eS SSS SS SS SS ee 
Press fereerne 
YESNE KBVTSR 
g2erre 9909 
daaeed agg 
Bons 
SN fSSSRROR 


B 
% 


006200 
006206 
006212 
006216 
006222 
006226 
006230 
006234 
006236 


BLE 
EXIT3: SCOPE 


506-238 EE EE SE SE EEE EEE EE EEE EE 
;¥TEST 4 OSCILLATING SEEK TEST 


3% K CYCLES FROM “FC™ TO “NC” AND BACK 

I TO “FC* “FC AND INCREMENTS BY “IC™ UP TO CYLINDER 
; I TED BY “IC” BACK TO CYLINDER “FC”. AT THE 

3% C SEEK COMMAND THE PROPER INDICATORS ARE 

I EXAMINED TO INSURE PROPER OPERATION. 


enna pene as eae tinue timc sapspoNRNRE PSAs 
: BeBITS+<4x2>, TSTNNS ;D0 THIS TEST? 
64S sYES=- 


; BRANCH 
TSTS 3NO--GO TO THE NEXT TEST 
64S: MOV ;GET THE ITERATION COUNT 


SETUP THE ERROR LOOP ADDRESS 

SET UP TEST NUMBER AND 

CLEAR THE ERROR FLAG (SERFLG) 
STSTNM, SDISPLAY ‘LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
DeFS4, a#OPB.B+10 ;FS 
DeFT4; MBOPB.B+11 :FT 
#EXITS, aUBYPASS ;60 TO EXITY ON ERROR 
Re CLEAR STALL SWITCH (NO STALL) 


88 
ageusg 


ee et et et eet eet Nee et ee eet et ee ee ee et ee ee ee 


~~ 
WWWWWEESLSWWLELEC CLE 8 


Or--O O0O00 
-——b—- — > be 
ae 
gag 


SRRZ 
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TY OSCILLATING 
6438 006336 032737 010000 odl1212 BIT aSW12, a8C. SHR STALL AES REQUIRED” 
6439 006344 Oo14G} BEQ TESTY: 
6440 006346 0051 : COM Re Snnse hei 
6441 boeses 01 001100 TESTY: MOV aSTACK, SP ge T STACK POINTER 
B442 006354 O13701 O0c1S6 MOV 8F C4, Al 
6443 006360 001320 CLR #STALLO staat ar ORO IF STALLS REGUIRED 
6444 006364 010137 00347 18: MOV R1,asDPB8.B+12 NC 
644S 006370 037 S200! ISR *@RCALL.B GO EXECUTE THE COMMAND 
7™% cos?702 TST :STALL 
644 7& 01403 BEQ 2 NO--BRANCH 
6448 096400 004037 021104 JSR RO, J8STALL t YES-GO TO STALL ROUTINE 
BHY9 QOSNON OOise) . WORD STALLO :TIME POINTER 
64S 013737 02:56 003472 2S: MOV C4. d80PB.8+12 :FC 
6451 414 020010 JSR RO, 28CALL.8 GO EXECUTE THE COMMAND 
6452 420 TST Re :STALL® 
6453 O0b4e2 OO14i3 BEQ 3$ 
6454 OO64S4 004037 021104 ISR RO, d8STALL S--GO TO STALL ROUTINE 
6455 006430 901 -WORD STALLO TIME po NTER 
6455 O0643¢ 37 001320 INC JaSTALLO = THE TIME 
BYE? D064 36 023737 370 091320 cH SeHXSTAL, a sestnui Ai 19 BIG? 
6459 OD6446 001320 CLR asSTALLO iVEs--STaRT OVER A T ZERO 
6460 OO64S2 063701 OOelbe2 3S: ADD aIC4, RI TO NEXT CYLINDcA 
6461 O06456 020137 O02l60 CMP R1, aelc4 :LAST CYLINDER COMPLETED? 
006462 003740 BLE 1$ 
O06464 013701 002160 MOV d8LC4,R1 SET NC 10” LC 
B464 OOS470 010137 003472 48: MOV R1,a8OPB.B+12 NC 
006474 0904037 20010 JSR RO, aeCALL.B 3GO EXECUTE THE COMMAND 
B45 005702 TST Ro ;STALL? 
6467 006502 001403 BEQ 3 : NO--BRANCH 
6468 GO6S04 904037 021104 JSR @eSTALL : YES--GO TO STALL ROUTINE 
6463 906510 001320 .WORD STALLO ‘TIME POINT 
6470 006512 013737 002160 003472 SS: MOV aeLC4 ge0PB.B+12"; 
6471 006520 004037 O20010 JSR RO, decALL. :G0 EXECUTE THE COMMAND 
6472 0cs702 TST R2 STALL? 
6473 906526 001413 BEQ bs :NO--BRANCH 
6474 OC6530 004037 021104 JSR JeSTALL ; YES=-GO TO STALL ROUTINE 
6475 006534 001320 .WORD  STALLO TIME POINTER 
6476 006526 005237 001320 INC SeSTALLO TUPDATE STALL TIME 
6477 OosS4e Ge 001370 001320 CMP Be4XSTAL, aesTALLe |; -TIME TOG BIG? 
6478 006550 003347 BGT ug H 
6479 006552 005037 001320 CLR JeSTALLO jVES=~SeT STALL TIME BACK TO ZERO 
6480 O06556 163701 O02!be 6S: SUB aeIc4 RL "NEXT CYLINDER 
5481 Sb2 20137 O0e156 CMP Ri, asec4 : DONE? 
6482 O06566 002373 BGE 6$ : NO--BRANCH 
a 006570 000004 EXIT4: SCOPE *LOOP 
6497 ee ere ee eee 
(3) TEST 5 CONVERING/DIVERGING SEEK TEST 
(4) 4 THIS TEST WILL CAUSE THE Prive TO EXECUTE FORWARD AND RE 
(4) i SEEKS ERO “NCL RESPECTIVELY 1” WILL SE TNCRERENTED 
C4) :¢ BY “IC™ AND im e DECREMENTED BY ae UNTIL "NCL" IS 
(45 * GREATER THAN ie INITIAL VALUE OF “NC2” AND “NC2" IS 
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(4) 3% LESS THAN THE INITIAL VALUE OF “NCI”. AT THE COMPLETION OF 
(4) 3 EACH SEEK COMMAND | THE FROPER INOZCATORS ARE EXAMINED TO 
(4) - INSURE PROPER OPERATION “AND "NC2” DEFAULT TO 
4) 1 FC" AND “LC” RESPEC iveLy.© 
(3) Ss EERELERD SLSLRSSLEERYSS RS SHE LEE SELERSLE VRE RPE SSERRSLSELBRERSEELSS 
(3) 006572 tsTs: rs 
(4) 06572 033737 OO01406 O01224 BIT DNB TS+<Se2> , TSTNMS ;00_ THIS TEST? 
(4) 006600 O01 BNE bY $ YES NCH 
(4) 006602 000137 006750 ST6 :NO--GO TO THE NEXT TEST 
(4) 013737 O0el72 OOL17E 64S: MOV DeRPTS,STIMES :GET THE ITERATION COUNT 
(3) 006614 012737 001106 MOV eTESTS. o#SL PAR 
{3} Gle737 S72 OO1110 MOV aiS1s g1SLPE ; SETUP fi g0P fOORESS 
(3) 010737 001102 MOY vans R AND 
(3) ao THE SERROR Er LAG (SERFLG) 
(3) 006636 013737 001102 177570 MOV orate @sDIEPLAY ‘aD THE TEST NUMBER INTO THE DISPLAY REGISTER 
6498 006644 113737 002204 003470 MOVB ef S,o80P8.8+10 ; FS 
6499 O066S2 113737 003471 MOVB oF TS 0808. “Bell 
6500 006660 012737 901234 MOV mex QUBYPASS ; io" TO EXITS ON ERROR 
6501 O06565 O1e70 1100 TESTS: MOV 
6502 006672 013701 174 MOV sce AT sSTART NCL AT FC 
6503 006576 Ol 002176 MOV 38LC5. Re START NCe AT LC 
6504 006702 0101 72 1S: MOV R »gabP8 8412 NCL 
6505 906706 10 ISR : .8 GO EXECUTE THE COMMAND 
6506 O067l2 010237 003472 MOV ;@80P8.B+12 ;NC2 
6507 006716 004937 020010 JSR RO, J8CALL.B -GO EXECUTE THE COMMAND 
6508 006722 063701 002200 ADD asics Ri sNEXT NCI 
6509 006 1 SUB gece NEXT NG2 
6510 O06 020137 002176 CMP 1, aac * DONE? 
6511 006736 093003 BGT ExiTs : YES--BRANCH 
6512 006740 002174 CMP R2, aaFCS :? 
6513 O06744 O02356 BGE 1§ :NO--BRANCH 
bei 008746 000004 EXITS: SCOPE *LOOP 
6525 s RHERELAS SES EALLLELLALSHLERESALER ARLES LLLSAAAHESALAELEALRELRAEE 
3} S#TEST 6 SERVO ADDRESSING LOGIC NOISE GENERATOR 
(4) 3% IN THIS TEST A SEEK IS DONE TO CYL "NC" THEN A SEEK 10 
(4) t# NC+4 THEN NC+1 NC+3 THEN NC+2 THEN NC45. NOW ance IS UPDATED 
(4) 1 BY "IC" AND THE QUENCE Is REPEATED UNITL “LC™ I 
(4) + EX EDED BY ANY OF THE UES. THE INITIAL vats OF "NC" 
(4) «i 1S "FC". AT THE COMPLET One OF EACH SEEK COMMAND THE 
4) i PROPER INDICATORS ARE EXAMINED TO INSURE PROPER OPERATION. 
(3) « ELRESSESSSRRALAELESKSERERS SHESASLAKSRFLERS SS ESFLERRABLERARARLRERE 
(3) OC6750 tSTE; 
(4) 005750 033737 O01410 ocol224 git DeBITS+<G#2>, TSTNMS ;D0 THIS TEST? 
(4) 006756 9001902 4S. - YES~ =BRANCH 
(4) 008760 000137 007172 IMP S17 :NO--GO TO THE NEXT TEST 
(4) 006764 013737 002210 001176 64S: MCV DARPTS,STIMES GET THE ITERATION COUNT 
(3) 006772 012737 907 001106 MOV 8TEST6, ABSLPAOR 
(3) 607000 912737 006750 001110 MOV aTSib Susi Pe ;SETUP THE ERROR LOOP ADDRESS 
(3) 012737 001102 MOV » oasTSTNM ;SET UP TEST NUMBER AND 
(3) ‘CLEAR THE ERROR FLAG (SERFLG?! 
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(3) 14 0137 l 1775 MOV STSTNM, DSDISPLAY sLOAC THE TEST NUMBER INTC THE DISPLAY REGISTER 

ets tee ee Be EL 

6523 0070 bi 37 7170 O00:234 MOV sEXI Tb, ga8YPRSS 60 To EXIT ON ERROR 

peat Peter BrSeOR posese = SS. Oe Bete ores 

bS3e Oo70sN 01 poee14 MOV d8LCb,Re , sFORM LAST CYLINDER THAT 
1 Sua aS, Re sIS AVAILABLE FOR TESTING 

6534 007084 1 1S: CMP Rl‘ Re “LAST CYLINDER 

6535 007066 304 BGT exiTé : YES--BRANCH 

6536 10137 0034 MOV 1,a80PB.8+12 [NC 

6537 007074 02001 JSR RO, J@CALL.B GO EXECUTE THE COMMAND 

6538 007100 000004 003472 ADD 84, 980P8.8+12  ;NC+4 

6539 007106 apsos? b20019 JSR RO; a8CALL.B GO EXECUTE THE COMMAND 

6540 OO711¢ 1627 003472 SUB #3, 90068 8412 NC+1 

Bays ele eon poate 003472 a0 is mao 

feu porta aie 660001 003472 ar Ro, me ad as a eee 

6545 007144 Soag3? 920019 ish RO, geCail 8 F :GO EXECUTE THE COMMAND 

6546 007150 003472 "Q80P8.8+12 ;NC+S 

6547 007156 004037 020010 JSR RO’ J8CALL.B GO EXECUTE THE COMMAND 

6548 007162 063701 02216 ADD asics, Ri 

6549 007166 900736 BR 1S 

6550 007170 900004 EXIT&: SCOPE LOOP 
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65 
be5s -SBTTL ### TIMING TESTS (7-12) ### 


5 7BNS ZRNG ZENS JBN GS ZRNS ZBNG ZENG JBN JBN SG ZN ZN ZN SNS NS ZN ZENS ZENG JBN: 
i /¥N: TENS TENS ZENS RNS ZENS ZENS ZENS ZENS ZENS JANG ZENS ZENS ZENS ZENS JENS ZENS ZENS 
:/#\: ZENS BNE ZBNG ZENS ZENS ZRN GS ZENG ZENG ZENS ZENS ZENS ZENS ZENG ZENS JENS ZENS RNS 


saTHe TINING TESTS WILI. INSURE THAT FUNCTIONS BEING 
#TIMED ARE WITHIN THE ewes SPECIFIED IN THE “RPOY 

S RENGINEERING SPECIFICATI 

:#THE SEEK TIN ae nek “as Pee RF ORMED USING EXPLICIT SEEK 

; OPERATIONS. ON OF EACH OF THE Mg 

setts THE AINIMURe RARINOM MU AND AVERAGE TIMES WILL BE 


g 7 NR SNR SNR SNR SNR ENR ENB ENB SNR 5 NB SNS NBS NBS NR SNR SNR: NRE 
3/3 NAZ NB 5 NBZ 5 NRZ SNR NS NZ NZ SNR 8 NBR NZ SNR NZ SNR NR NBS ENE SNE 
t/: NRZ ENA NBA NBS SNR SNR SNR SNR 5 NR 8 NZS NBS NZS NBS NBA SNES SNR SNES ENG 


7 agmmmnnay og oo ag llama 
TEST 7 ROTATIONAL SPEED TIMING TEST 


t# 

;# THIS TEST WILL START A TO CYLINDER 0, TRACK O, SECTOR 
# 0. AS SOON AS T OCCURS, THE GO’BIT IS SET AGAIN 
- AND THE OPERATION IS ee THIS PROCEDURE IS REPEATED 10 
3% 
3% 
.# 


Ae i CALCULATED AND CHECKED TO 


- 2% IF §0HZ 
16.67 MS/REV + OR - 2.5% IF SOHZ. 


ee ee 
; auBITS+«7#2), .TSTNG 3D0 THIS TEST? 


“60 TO_THE NEXT TEST 
pr THE ITERATION COUNT 
Set aeons b 


888 
59 
GBS 


64S: 


dg 


8TST7, J8SLPADR 
87577. J#SLPERR 
87, oaSTSTNM 
STSTNM GAO TSPLAY 
JeCLKSTA 

1$ 

TST10 

RO, 2eSRCHOO 

2s 


po coaassscous 
pp ng hp pe 
ee ee et ee ee eet ee ee ee ee ee ee 
oO oOoonNn 
BRRS ine 
—ONN 
BBG we 


Be 


EXIT? RETURN HERE IF ERROR 
DBFC7,RHCA(RY) 3FC 

gar 97, -(5P) °F 

@aFT7, 1(SP) ; 

(SP)+, RHDA(RY) LOR FI/FS 

SEXIT?,SESCAPE ;;ESCAPE TO EXIT7 GN ERROR 


Egae 


s a 
Nz Ss 
SQSLEWRGYRGS SSIES 


O20r-o0oO 
ee oe a ood 





RH11/RPOY REGISTERS 


AR 
;SELECT DRIVE 


b 


TCLOCK OVERFLOWED 


J 
’ 


ARCH 

NTERRUPT 

he RH11/RPOY REGISTERS 
TORE RO-RS 
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STOP THE CLOCK 
NO--BRANCH 
NT 
tee rates 
MASSES CLE 


: STOP 
Is 
:DPB PO 
:SA 
(RY) 


4, RHDSI(RY) 
»RHCS2(R4 


aPKCS 


aPKCS 
§, RHOSL(R4) ': 


” 
3 
nw 
co 
oy 
— 
2 


ait! 


=24 2ee2 


~-<t 


ig ics ae See Be: 
Baise aE NSE Nae Ue LgESSEUNZES se RAE 
——— Hee CRE cE eRESEESERERS 


Sars ever oeeeert reer comer er ev ceeeery 


ease 171546 





MAINOEC-11-DZRPK-B “MECHANICAL AND READ/WRITE TEST™ MACY11 27(663) 23-JAN-76 10:16 PAGE 43-39 
OZRPKB.P11 v? 


ROTATIONAL SPEED TIMING TEST 
Sib tabee raesecha) SELECT DAVE 


33 M # Ayan Sore See esa ENT. VECTOR 
37 ete ar oa Sarit esta 
1 NO = " BRANCH 
921740 RO, deTYPTIM :60 Ty THE TIMES 
TST10 GO TO NEXT TEST 
004037 021740 : RO, a8TYPTIM GO TYPE THE TIMES 
T :POINTER 


SRC BREESE 


nee 


ee ee et et et eet re et Ne et et ee ee et eet ee et eet eet ee ee 


7 wee OOO ON OE ences 
;*TEST 10 ONE CYLINDER SEEK TIMING TEST 


THIS TEST WILL Creo te F SEEK CY TO ADVANCE THE 
ae BY ONE UNTI 


ey Reta 
1s ee 274 
EXCEED THE PAX Pie edn test 8 RSS, lore act 
ME MUST BE LESS THAN GREATER THAN SMS 
pee eau ten eae cc alarecee nei gsr att Es Ni 
pagtTse<10Ne>, TSTNMS ;D0 THIS TEST? 
; VES~“BRANCH 


ae :NO--GO_TO_THE NEXT TEST 
auiety0 Stine GET ote A TERATION 8 ON COUNT 


vara ee ee SEE PTE i oF ibe 


001102 NV STSTNN QaDISPLAY ithe Tie THE TEST NUMBER PR Inte TH The DISPLAY REGISTER 
aeciKsta sKWL1-P OL 


001226 
: gant T 
:NO--GO TO TEST 
18: RO, J#SRCHOO 00 A MASSBUS INIT. AND RECAL 
ERROR RETURN 


NO ER “SCOPE LOOP CALL 
es: ; PARAMETER 
0276 001200 $3 To ExiTi0 ON ERROR 


TESTO: sethot Sp 
003532 MOV "posite : oT Te ue Soar a #1 


aesTRTMR —«-S INITIALT timers 


171266 87%, OPKV *SETUP INCASE OF OVERFLOW 
017114 MO BDORTI, @RPVEC ser R T ECT 2. operant 


o00034 aa0TADPB +12, rucalaan’, SLOW GES! B CYLINDER 
, 


wewe ee ee ee ee ee ee 
PE OC Ce 


5 

4 

Seg 
a 


oo00 


ee WS 


( 
( 
{ 
( 
( 
( 
( 
( 
{ 
( 
C 
( 
( 
( 
( 
( 
{ 
( 
( 


WWIGWWWELCELCWWEECESCLLSCCL LW 


So 


Ron 


3S 


: START 


pecrneeee 





ee ee ee eae ree ee ee ee re ee ee 


RH11/RPO4 REGISTERS 
“baivE 
Tres TO. bomn 


INTERRUPT 
TSK ERRORS? 
NT 

T 

RO-RS 


WAIT 

hs fH 

iho- 

; SAVE 

; I 

ae 

MOVE TO NEXT C 

sie 8 
THE 


sarod 


af 


ag S 
hiseSesrarbakae oe 


in 
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;START THE CLOCK 


MACY11 27(663) 
TAoPes is 


ia 


AVERAGE SEEK TIMING TEST 


: 
* 
: 
* 
an 
: 
: 
= 
; 
* 
P 
: 
= 
Se 
= 
a 
3 
* 
* 
= 
* 


131 171240 


ONE CYLINDER SEEK TIMING TEST 


BNO 


Bs 
uy 


Sonera EE 
ESSE EASE EE Sth TS MINT a NC tS 


IG ah ah ad a ah a nd ed Oh hh dd a ad ad a dh Od Oh hh OG Od dd ad ad wb 0 Od ag wm wd 4 oh oH 
OQOOOOOOOOGOOOOOHOHOHOOOOHOOOOOAO00000000000000 


$GSG5SS SRG Ba NN gERS 95S SO RSI 


T10 
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DISPLAY REGISTER 


SWITCH TO UP 


136-0" 128 TIMES 
OR ih ASE OF OVERFLOW 
OR 
IVE 


THIS TEST? 
TO THE NEXT TEST 
Te 
RPO VEC 
cT 
RO-RS 


; T 
i Tue 
DPB POINT 


PaMen FRE RHLL/RPO REGISTERS 
ifthe 


)’: 
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TSTNMS 
; YES- 
eh 

N 
"bei 
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OeBITS+<11#2> 


S2RASSSs 


Eval ian BDEDUSESEEDTSLSSDABEU ROONDEDETELGAEN 


ae 
od sae : 


ee 
SERRaNS OS ebenen roayeencmuaseneatasesanasiasssI59 


Sen hon fam don boos feos bandon don ban bon han bam bon ban bon ban ben ben bende bas dan bontontos bon hon hen benbenbondas dap ban pandas ban ponhan pan benpan) 
BQOOOOGBOWOHOHWHOOHOOHOOCHOOMOOOHOKNONKOHON0A000NO00 


Ll 
SB8S2F SBHHSOLE NAN AC RAN REM NRER SBIR SASSOMMR ARE FEET EES SS 
er et Set Set Ot ed Se Net Set tee P. ~ a et et ot et RRR 


w 


xk 
3 
ok 
a 
baal 
ve 
cod 
+ 
oda 
baa! 
et 
ee 
ee 
oe 
Es 
ee 
* 
ee 
ae 
ae 
et 
4 
5d 
z 
bad 
8e 
a 
4 
ad 
> 
ek 
* 
be ol 
bd 
ee 
ad 
bad 
aL 
oe 
= 
a 
<7 
Ae 
we 
aS 
ie 
sy 
na 
ME 
ee 
et 
cod 
am 
oe 
ae 


/WRITE TEST" 


TIMING TEST 
tSTLI: 


CAL _AND RE 
AVE SEEK 


Til 
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OZRPKB. P11 





al 
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10664 012764 ¥BITOS,RHCS2(R4) :MASSBUS CLEAR 
106 pee V DAOTADPB,RHCS2(R4) -SELECT DRIVE 
RESTORE RO-RS 


OR 17 
ale705 27777 : MOV a-1,R5 ;SET UP/DOWN SWITCH TO DOWN 
1 ;UPDATE THE COUNT 
ca FOR 2 MILLISECONDS 


a3 


Ses 


g8 
£o 


~-~We 
% 


2 


8 
4 
B38 


POINT 
g4SViH 1 ey SAVE ALL THE RHI1/RPO4 REGISTERS 
1 A Mere eT DRIVE 

_ ie at 


;MASSBUS_IN 
: SELECT ORIV 


ICD 
Zan 
aoe 


: 


= 


EXIT11: 


ECRERERNPE RED 


28 
<3 


01 
; 
0 
0 


Po rene Pee ae Pn Po Pee Pos bao bao Pee Pw fs me fan bee fe fee ae Bs Pow fone fee pe bo 


cs 
Ee 


poS-1-5-lbt-llelaeleiaitt-bo-toh teh -+-<-irtl-t-iot-tet-tl-1-5+- fable lahaelalalelainilalailaiaieeial 
;¥TEST le MAXIMUM SEEK TIMING TEST 


pa I 
THEN A ROM CYLINDER 410 TO 
H SEEKS ARE TI ae ee TO INSURE 
N OLERANCE ALLOWED F Ten SEEK 
* arene 128 TIMES (FOR 
THE MAXIMUM SEEK TIME IS SOMS + 4MS OR - QMS. 


° 7! “eager somone SRSRRALBERELE SALE MARE LAERERA LAL RRAASREA KSSH LE 
: BagITS+« 1282), TSTNNS 120 THI THIS TEST? 


No=-o9 0 7 THE a TEST 

in ITERATI ko tes 
SSLPAOR ;SETUP THE COPE L OOP ADDRESS 

aTSTlo. daSLPERR ; SETUP eer UP ‘Loop ADDRESS 


#12, pebistie Tu T NUMBER AND 
CLEAR THE ERROR FLAG (SERFLG) 


sake uti? *LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
jYES~-STRAT TEST 

TST13 ;NO--GO TO NEXT TEST 

RO, J#SRCHOO D0 A MASSBUS INIT & RECAL 


Fee8 


passe seers 
sees Saueene 


- 
yh 
~ 


ee ee ee et et ee et et et et eet eet ee eet ee ee ee 


ee 
JIGGGGOESEFQOLETSESTE 


O0000 BO000000O 
ee eee ps ba po pan fat fas Pe me 
Po be be ee need Seed oe eed Seed ee 


oe 
Crus 





ee ee 


L1/RPO4 REGISTERS 


MILLISECONDS 
AT ZERO 


/BOUN SUITCH TO DOWN 


TE THE COUNT 


Oats ON ERROR 
T_“O-410-0" 128 TIMES 
THE TIMERS 
1 ual REGISTERS 


RH 
CL 
IVE 
RO-RS 


T 
T 


UP VECTOR IN CASE OF OVERFLOW 


TUP RPOY VECTOR 
T COUNTING FROM ZERO 


THE UP 


‘ 
Z 
; 
& 
é 


*STALL FOR 2 MILLISECONDS 
T+ 
sPOP THE Be Fron THE STACK 


T 
CL 
;SET_THE UP/DOWN SWITCH TO UP 
THE COUNT 
i pave RO-RS 
; POINTER 


é 


Or 


3 23 2233 
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-~4 


2 eee S8 ze a aa a a 


gous gees eueSE nue a ce 
ee ee ent 


ae a Sa a Sa pata be fame ph ph ph th ph pL pe nk ph oh ph ph eh MM HM MM Gh KM phe pe RRR RR RR AR AR RA 
Ed hd a eg ah ed hd a dd ah ed dh gg ed Og Fd dh eg rd ed ed od eh oh ma et 
QOOOOOOHQVOWOWWOWOWOWOOOOOOO2902OH2OOOODOOOOOOOOOO000000000000 


BERBER BERR PR ERE R RR occ oB eRe me eee gada ooo Caaagaaaiauas 


MAXIMUM SEEK TIMING TEST 
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Tle 


ibe cee 000101 167704 7S: 
177776 


ODOBDODOODDODODDONDWOWOWD 
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OZRPKB.P11 Tle MAXIMUM SEEK TIMING TEST 


27e4 bados0 000010 av at? A, a VES eS RH11/RPOY REGISTERS 


g 000019 oe secon peta eekTOre p a 
300004 EXIT12: SCOPE ony. 
en: my gare, oan rhe 
i JSR aesT. Ck ze Thee 
031356 MOV 
021740 SR 


I 
‘RES TORE Ae 
RO SR, SREVEC GO TYPE THE 
: POINT 


antes and 
at oe 
— ow 





BSCR RIC 


~ 
pee 
2 
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Tle MAXIMUM SEEK TIMING TEST 


-SBTTL ### ADDRESSING TESTS (13-14) ### 


: 


5 ZBNS ZRNSZRNG ZING ZBNE ZENS JBN ZENG ZENS ZNSE ZN ZENS RNS ZENS ZENS JENS ZENS IN: 
3 /#\: ZENS ZENG ZENE ZENS ZENE ZENG ZENS ZENS ZENS ZENS ZENG ZENS ZENE ZENG JENGA: JEN: 
:/#\: ZONE ZENS ZBNG ZENG ZENS ZBNS ZENS ZING ZN ZENS ZING ZENG ZENS ZENG ZEN ZENE ZENG 


;*#THE ADDRESSING TESTS INSURES PROPER OPERATION OF THE TRACK 
Brg SECTOR ADDRESS CIRCUITRY. BOTH ADDRESSING TESTS 
Li BE PERFORMED ON CYLINDER FC. 


372 NZ SNR SNRs NB SNR NZS NB NBR 5 NZS NBR SNR NB NZS NZ NBA NR NBS NE 
°/3 NZ NZ NB NZS NR NZ SNR SNR NZ ENR NRA NR NB NBS NBS NB NBG 
3/3 N97 NBS SNR NZ NS NZ ENR SNR SNR SNR SNR ENR NBS NESS NBS NBS NBS NE 


ae 


poepegnepusananesseverseceseessnsteress® Fe EEE EEE 
T 13 SECTOR ADDRESSING TEST 


nas TEST WRITES DATA INTO ALL SECTORS OF TRACK “FT”. THE 
DATA WILL BE 2S6 WORDS THE SECTOR ADDRESS OF THE SECTOR 
NG WRITTEN. A WRI 


+ 
;# 
+ 
te CLEARED (TO 177400) 
iS 
;# 
3% 


ITE 

REWRITE SECTOR 21 AND WRITE CHECK SECTORS 0-21. 
nes ee EINES ae Rererianin eet Ore ere 
: DEBITS#< 1382), »TSTNNS ;D0 THIS TEST? 
5-"BRANCH 


TST14 : TO THE NEXT TEST 
64S: aereT13, STIMES GET ITERATION COUNT 


testis SSUPERR SETUP THE LOOP ADDRESS 
#13, 2eSTSTNM SET UP TEST NUMBER 
“CLEAR THE 


ERROR FLAG (SERF 
STSTNM, JUDISPLAY LOAD THE TEST NUMGER INTO tee DISPLAY REGISTER 
#€XIT13, d8BYPASS 
BSTACK p sSET THE STACK POINTER 
ef tLBUF “FILL THE BUFFER WITH SECTOR ADDRESSES 


Re SeRezeoe 
Pa-peReee proPeR 
ze 


EREAR ISRRRE REPRE 
8 
8 


™“ 

~ 

o 

BR 
Noe 
—-OOr- 


(3) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
£4) 
4) 
(4) 
(3) 
(3) 
(4) 
(4) 
(4) 
(4) 
(3) 
(3) 
(3) 
(3) 
(3) 


o 

-“ 

£ 
28 
BS 


EREPESESE 


*BUFFER ADDRESS 
-START A DATA TRANSFER 
JEOTADPB+2 sCONMANDSWRITE CHECK DATA 
ieee A DATA TRANSFER 
CLEAR BUFFER 
COMMAND = 


ty) 
QOOOOOOOOOCOOO0D0O GOO00000 


SENREMRSNES 


BaP 


Ba be Pee Be be be De ee Bt fe PP fe eet em be bo fn bm 


be Pe be hp ba bem 


o 
& 
wo 





aAIme. 
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OZRPKB.P1i T13 SECTOR ADDRESSING TEST 


;START A DATA TRANSFER 
sCHECK THE SECTOR DATA REAO 
; 


g 


6871 8 


Bs ap ne 


Be 


SSTART A DATA TRANSFER 
tMOVE TO NEXT SECTOR 


rete) 


See 


JSR 
JSR 
MOV 
CLR 
MOV 
MOV 
MOV 
MOVB 
JSR 
MOV 
MOV 
CLRB 
JSR 
INC 
CMP 
BGT 


¢ NO--BRANCH 
EXITI3: SCOPE LOOP 


5 HGH HHHHIHEHHHHHHHHHHHHHHHHE HHH HHEHHHEHHHEHHEEHHEEE 
;#TEST 14 TRACK ADDRESSING TEST 


THIS TEST WILL WRITE DATA IN THE FORM OF TRACK ADDRESSES 

IN CYLINDER “FC™ SECTOR “FS" OF EVERY TRACK WITH EACH TRACK 
GETTING ITS OWN TRACK , 

A WRITE CHECK IS THEN PERFORMED ON EACH TRACK TO INSURE 
THE DATA_IS VALID. TRACK 0 IS REWRITTEN AND TRACK 1 
THROUGH TRACK 1 WRITE CHECKED. THEN TRACK 1 IS 
REWRITTEN st TRACK @ THROUGH TRACK 18 IS WRITE CHECKED. 
THIS IS CONTINUED UP THROUGH REWRITING TRACK 17 
AND WRITE CHECKING TRACK 18. 


tM gee oe ala cian oe nea me ate icra Bear ORI: mee 
: BeBITS+<14*2>, TSTNMS ;00 THIS TEST? 
4 : YES--BRANCH 


TST1S *NO--GO TO THE NEXT TEST 
64S: DBRPTIY, STIMES :GET THE ITERATION COUNT 
#TEST14; J8SLPADR 
#TST14, J8SLPERR ;SETUP THE ERROR LOOP ADDRESS 
#14, deSTSTNM ;SET UP TEST NUMBER AND 
“CLEAR THE ERROR FLAG (SERFLG) 
STSTNM, QDISPLAY LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
MO #EXIT19. aeBYPASS 
TESTI4: ACK ;SET THE STACK POINTER 
J “FILL THE BUFFER WITH TRACK ADDRESS 
22 =WRITE DATA 


ee fl pat Ge Be ee fe fe fe Be Re he Pe be Bn ae fem pe 


Bats 
s 
S 


e 


tL eERER EAR 


é 


0 OC Oe Dik te Oe ie 


= 


5 
s 


[=l =! 
—— 
B <= 


ce 
g 
8 
ns 


(3) 
(4) 
(4) 
(4) 
(4) 
(4) 
4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 
(3) 
(4) 
(4) 
(4) 
(4) 
(3) 
(3) 
(3) 
(3) 
(3) 


E200 2000 
~ 
R 


: 
aaa 
g 


bas 


4’ Q80TADPB+10 :SECTOR 
SOBDTADPB+4 : WORD COUNT 
, DAD TADFE+G ‘BUFFER ADDRESS 
RO ; TRACK=0 
_ RO, @8DTADPB+11 TRACK ADDRESS 


OOOO 
t= fee f= 


ee ne he FS hs fee Be fm Re Be Das bt be fe st hs ee tee 


OOOOOOOO000O 20000000 


turururururorurururnr 
Saya S ae 
ERLFONLOLRS 


E 





ess 
a 


ruru 
2 


4 Das Pee fee fae B= B= hs Hs Bas Foe 7 
rr 


seooae 


SERS SPSS ae 


rururururuory 
aati 


ie 


x 
my 


¥ 


By 
B 


004037 
pera 
022700 
110037 
010001 
002404 
062737 
000772 
012737 
004037 
062737 
10S237 
012737 
122737 
003362 
005206 
022700 
603335 
900004 


CHANICAL AND RE 
TRACK ADDRESS 


003526 


003526 
003522 


AC/WR 


NG TES 


Ja gasebassyeRssse 


T 
EXITi4: SCOPE 
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RO, SRORVCAL “START A DATA TRANSFER 
etbeSbx2, ISD TAOPH+6 jypoaTe BUFFER ADDRESS 
RO UPDATE TRACK NUMBER 
#1019,RO OUT OF TRACKS? 


1 * NO--BRANCH 
SGUFFER, B8OTROPEYE :BUFFER ADDRESS 


SWRCKD, 22D TADPB+2 ;C =WRITE CHECK 
RO, aeOTAOPB+11 ; TRACK ss 
“START A DATA TRANSFER 


CAL 
#1025682, J80TADPB+6 - UPDATE BUFFER ADDRESS 
, TRACK NUMBER 


RO 

#1019, RO foi TRACKS? 

RO MO RST TRACK ADDRESS 
ROTO et RON BUFFER ADDRESS 
SBOFFER, 4D TADPBYE ;BUFFER RODRESS 
5§ 

Si0eSb8e, Se TROPEYG 


TA TRANSFER 
ER ADDRESS 
TRACK 
: CCNMAND=WR I TE a DATA 


s H 

;NEXT TRACK TO WRITE 
;OUT OF TRACKS? 
3NO--BRANCH 
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OZRPKB.P1Li #22 DATA TEST (15) sae 


-SBTTL ### DATA TEST (1S) sae 


5 RSE AE EE AA AA 
;#TEST 15 DATA TEST 
THIS TEST PERFORMS DATA STORAGE AND RETRIEVAL ON CYLINDERS 
“EC” THR “LC” BY ie IN. MENT “IC™ USING THE DATA PATTERNS 
Srecir ice, ma. roe NCE OCCURS FOR EACH CYLINDER: 
peo! Thacues UNTIL “NT™ > “LT™ 
"LS”_OF TRACK “NT” 
OMPARE “FS” Foe THROUGH “LS” OF TRACK “NT” 


READ 
RESEAT STEPS aT rei 
pe 1-4 FOR EACH DATA PATTERN 
T eTEpS 1-S FOR “FC™ THROUGH “LC” ADVANCING BY “IC™ 


Garur- 
ee <j 


LOR ON ON ON PON ON OP PO 
—— MN 
. . . 


SESE LLE LAE LE 
ee ee a ee ee ee ee ee ee ee ee 


ORTEC AND 

TRACK ae dean $ N_AND CHECKED. THIS us IS 
Se Y Pose ce NG TWO(2) SUCCESSIVE ERROR FREE 

- IF re cue FAILS THE ERROR IS REPORTED AS 


TO 1 AND LS DEFAULTS TO 0 
TO 1 (ALL POSSIBLE PATTERNS) 
PATTERNS ARE: 


PAT 3. PAT 4 


d 


ENE 
a 
ee 
sa 


F322 
F 
‘i 


OB  Ge fae 
zo 
~ 
2 
ope 
wnin 
8 
Lavy 


peesasanasnsy 


é 


eeeiige 
elie 
mn 


8535 
= 
Ruin 


be Doe Pe Be be Gam Pe bane Bes Pee 
po 
~ 


: 


: 
: 


F 
RARER 


: 
: 


~ 
taal 
BH 


Ss 
: 


ae 


ine 

ur 

BH Ot 
a8 

= = bb = ee 


BBRRE 


q 
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# 
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& 
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TiS DATA TEST 


Qo 
z 
3e 
men 
of 


133333 13302P 1 ? 177777 QO 
165555 1 | 
133333 173777 | 1555 


133353 i 17eeee 
| 157777 155555 
165$5 172666 
133333 077777 


1SS555 


ee ee 


wewe ee wees wes os ae 


7 pg aapagomep ears one ptmanencaniset tice ena: 
ns DeBITS+< 1542), “ :00 THIS TEST? 
bY =<BRANCH 
TO THE NEXT TEST 


segs 
See 


64S: 


SLPERR SETUP THE ERROR LOOP ADDRESS 
s3ET UP_ TEST NUMBER AND 
THE ERROR FLAG {SERFLG) 
5 LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER 
PN SU 


WWW LEC LWIWIELEL LCE 
et et et eet ee et et et et et at et et a et a es 


an SS 


seal @BOISPLAY 
RO 


= 


: 


c 
( 
( 
( 
( 
{ 
{ 
( 
( 
( 
( 
( 
( 
( 
( 
( 
{ 
( 
( 
70 
70 
70 
70 
70 
70 
70 


Sew EIS 
lo 
opaaRe 
sre 


;COPY NORMAL WORD COUNT INTO SMALL WC 
SWITCH SET? 


;NO--BRANCH 
sFORM WORD COUNT FOR LS < FS 


SOT i 
oe 


S88 


ees 


es 


TADPB+10 ; SECTOR 
#OTAOPB+6 ;DATA BUFFER 


;CLEAR THE WRITE CHECK ERROR FLAG 
:PICKUP FIRST CYLINDER 


;MOVE TO NEXT DATA PATTERN 
;OUT OF PATTERNS? 


:NO--BRANCH 
ae ‘MOVE TO NEXT CYLINDER 
{Tis QUT. OF evul 

“START WITH PATTERN G 
BITS(RO),aePTRNIS ; THIS PATTERN SELECTED? 


SSSR 


See RR EERE RBA NRE 


ONOOOOOOOHOOOOOOOVMOWOOOOOSOSGO000H000000 a0 


Dues ~~ 


bh He be Os fe he Pee ae Pe Bae Pee Bs bs Fe et om hn fe be Pe ps > pe fm fe Be pe Bs hn Be Pe pe pe ne b= a 
<O 


PUR SEA Peat att 
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r4 


nase 


R 
OOOO OOHGOOOOOKOOVBOBOOOOOOOOOKBOA0000000 =~ 


7083 
7055 
7056 
7057 
70S8 
7059 
7060 
7061 
7062 
7063 
7084 
7065 
7066 
7067 
7068 
7069 
7070 
7071 
7072 
7073 
7074 
7075 
7076 
7077 
7078 
7073 
7080 
7081 
7082 
7083 
7084 


a 
o£ 


BPR DADIN SERNA SUE Stet 


Bisgen 


B88 


2 Fe Fm me foes bt os Ps Fm fiw ht ee 0 he Bee Ps Pot Pm Pe Pes Fm bs Ph fo bo Poe Ps Ban Pe fs fe P= bo Paw Pe hee be 
Sell eel aml 
ovo 


OS 


3 


ae 


as 
Aj 
3 


=k 


SSNS 


8 
aedgde 


core 


HANICAL AND READ/WRITE TEST” 


DATA TEST 


BR 
EXITIS: SCOPE 


Dej— 


et a 


See a 
a oR i 


ob 
52 


of E 
: 


YES--BRANCH 
+2 ; COMMAND =HRI TE 


23-JAN-76 10:16 PAGE 43-50 


: NO--BRANCH 
“FIRST TRACK 
CYLINDER 
WORD COUNT 
“LAST DISK CYLINDER? 
“LAST DISK TRACK? 
‘SHORT WORD COUNT 
INHIBIT WRITE AND 
“WRITE CHECK? 
: YES-- 
: Beane IATTERN INTO THE BUFFER 
ay Sart WRITE? 
DATA 

“START @ DATA TRANSFER 
INHIBIT WRITE CHECK? 

ITE CHECK DATA 
; TRANSFER 
WRITE CHECK ERROR FLAG SET? 
: NO--BRANCH 
"PERFORM READ AFTER FATAL “WCE”? 
: NO--BRANCH 
INHIBIT READ DATA AND SOFTWARE COMPARE? 
: YES--BRANCH 


:YE 

-C AD 

fen OTA TRANSFER 
COMPARE THE DATA? 


;NO--BRANCH 

;YES--DO IT 

;MOVE TO NEXT TRACK 

5 OUT OF TRACKS GO TO NEXT PATTERN 


PSCOPE LOOP 
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DZRPKB.P11 #ee EXERCISE TEST (16) 


-SBTTL ##% EXERCISE TEST (16) #8 


5 SER 980 Eg 4 A A A SE a AE 
;#TEST 16 RANDOM RODRESS AND RANDOM PATTERN TEST (TST16) 


Srna NG - “FC” AND GOING THROUGH “LC” THE DISK PACK 
OM PATTERN. THE FIRST TWO WORDS 
THE BASE OF THE RANDOM GENERATOR 
FOR’ THAT C TORS, 


THE TEST THEN PERFORMS THE FOLLOWING SEQUENCE “R” TIMES 
tee DEFAULTS TO 20,000. 


GENERATE A RANDOM ADDRESS 
WRITE A RANDOM PATTERN AT THE ADDRESS 


7086 
708? 
7lle 


3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
y 
4 
4 
4 
4 
4 
q 
4 
4 
4 
4 
3 
3 
4 
4 
4 
4 
3 
3 
3 
3 
3 
1 
1 


ih 


TE A RANDOM ADDRESS 
READ THE SECTOR AT THE ADDRESS 
GENERA N 3. 
DO A SOFTWARE CHECK OF THE DATA READ IN 4. 
00 A CHECK OF THE DATA WRITTEN IN 2 
GENERA ADDRRESS 
READ e SECTOR AT THE ADORESS 
DO A SOFTWARE CHECK OF THE DATA READ IN 
OF OR BOTTE CHESS OF SHE DATO WRITTEN Wg 
ne ere te eee 
, JsBITS+<16#2>, TSTNMS ;D0 THIS TEST? 
BNE 4 ; YES--BRANCH 
IMP OP :NO--GO TO OF THE PROGRAM 
64S: MOV gis he T ON gaunt 
; SETUP ‘Loop OOP AGORESS 
ST HUNGER AND 
aE on THE HE ERROR AG { 
arene or tT OAD nme ST NUNGER ie tie DISPLAY REGISTER 
sess Sem eSHINUH PRIME THE RANDOM NUMBER GENERATOR 
aurCib tee | CYLINDER 
BUFFER’ BOE PES OEDORESS 
suRITE SOO TAGERS AOPBae 
SSHIS, 88C SHR HRI THE DISK PACK BEFORE TESTING? 
aeFI ia DATA BUFFER WITH RANDOM DATA 
ri Spee To cee OR AND TRACK 


oOnaow £W) Tr 
eer el 


SOS SESE De OE SE SESE SE SESE DESI SESeweasewseaee 


ee eee ee ee ee ee 


—-O 
oOo 


S peerehee 


Q0000000 28000 


a I et et a a a a ee es ts 
Qo0o0ec00o 


PISTHZEFSRVSS 
d ASN SN 
CURMESEEELES 225 


WWWWWWWWIWWWIWIG) 
a ee te 


T 
ean START A DATA TRANSFER 


ADPB+ TRACK 
+019, aap TAOPBeL i “TIME FOR NEXT CYLINDER 
s NO--BRANCH 


Cort, 
3S 
bee) 


es 


OONVOVOHOOOOCOOO000000 


2 Be bt ae Dot be bm B= = be Pee be be Pm eh 


se 
rT 


3 
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~“I~3~INS 


cd aed 


TTS 
Ww 


+ 
22 
fos 
Hs 


== 
© 
® 


Sea ae 


8 


ss 
SENN 


Be 


aackae soaNS 


be > 
Res 


RoRaoe 


cane 


tb 5 oe b= bo ban Rm bs Bs fe he be he he ee ft et bee me he fm b= 0 fh be po fe 


0 
9 
0 
Q 
0 
0 
Q 
0 
Q 
0 
0 
0 
1] 
0 
0 
0 
i] 
0 
0 
0 
6 
0 
0 
0 
0 
0 
0 
0 
g 


22 
23 


[=] 
bs 
ny 
¥ 


EE 


cease 
BS2H2E= 


SR 
is 


Sens 


=i 


88 888 8 


ae 
fu 


mee ieee 


JSR 
EXIT16: SCOPE 


G07 
MACY1 27(663) 23-JAN-76 10:16 PAGE 43-52 


= 

& 

es 
3 


BB: 


Pte] 
5 


SSPE PRLS 
PBS iG EE le 
;START A DATA TRANSFER 


* CHECK TA 
apTagpes io “Get RopRESS OF WHERE THE LAST 
#DTADPB+12 sWRITE WAS PERFORMED 


abe Sanaa ea 
+, 


aedT 
pas 

sere START A DATA TRANSFER “ 
aeDTAOPB+2” eo 


rd ° 
mS aepeveat etme a ee nee 


a 


: 


es 


ete 


-START A DATA TRANSFER 
: LOOP 
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OZRPKB.P11 T1é RANDOM ADDRESS AND RANDOM PATTERN TEST (TST16) 


ba H HEERREBALES SRS KEKE LR ESELARLERSERSAEAEEULELEF SELEY ER SRLARSEE BESS 
( 

(1) .SBTTL END OF PASS ROUTINE 

(1) #INCREMENT THE PASS NUMBER (SPASS) 

(1) #INDICATE ENO-OF-PROGRAM AFTER 8. PASSES THRU THE PROGRAM 
(1) :#IF THERES A MONITOR GO TO IT 

ae s#IF THERE ISN’T JUMP TO RESTART 

(1) 13476 SEOP: 

(4) 013476 104400 013504 TYPE +4 :; TYPE ASCIZ STRING 

(4) 013502 OO0410 BR 64S -:GET OVER THE ASCIZ 

(4) :s ASCIZ (15><12><185/END OF PASS/ 

(4) 013524 64S: 

(3) 613524 005737 oD1222 TST QsORVSEL ANY DRIVES SELECTED? 

(3) 013530 001434 BEQ i$ : :NO-- H 

(4) 013532 104400 013540 TYPE +4 TYPE ASCIZ STRING 

(4) 013536 OO040S BS 6S$ :GET OVER THE ASCIZ 

(4) 3;-ASCIZ / ON DRIVE? 

(4) 013552 65S: 

(4) O13552 01374 001236 MOV DECHKDRV,-(SP) ;;SAVE Q8CHKDRV FOR TYPEOUT 
(4) 013556 104404 TYPOS > 260 TYPE OC TA ASCII 

(4) 013560 002 .BYTE 2 >: TYPE 2 DIGIT(S) 

(4) 013561 000 "BYTE OO >:SUPPRESS LEADING ZEROS 
(4) 013562 104400 013570 TYPE +4 :: TYPE ofteg le STRING 

(4) O13566 O004le2 BR b6$ j AGT ASCIZ 
13614 seg, (ASCE # Ennons DE TEcTEbey 

(4) 013614 01374% o01112 MOV QSSERTTL,-(SP) ;;SAVE QaSERTTL FOR TYPEOUT 
(4) 013620 104402 TYPOC >:GO TYPE--OCTAL ASCII(ALL DIGITS? 
(3) 013622 005037 o01112 1S: CLR DeSERTTL : TOTAL 

(1) 013626 605037 901102 CLR STSTNM 3s THE TEST NUMBER 

(1) 013632 00s037 001176 CLR TIMES $$ ZERO NUMBER OF ITERATIONS 
(1) 013636 001100 INC 5 INCREMENT THE PASS NUMBER 
(1) Oi ze4e OMe? 7 100000 001100 BIC 8100000,SPASS ;:D0N’T ALLOW A NEG. NUMBER 
(1) 0136 DEC (PC)+ ; ;LOOP? 

(1) 013652 O000I6G SEOPCT: .WORD 9. 

(1) 013654 030% BGT SDOAGN : YES 

(1) 013655 O1 MOV (PC)+,a(PC)+ ::RESTORE COUNTER 

(1) 613660 000010 SENDCT: .WORD 8. 

(1) 913662 013652 SEOPCT 

(3) 013664 104400 013672 TYPE +4 s:TYPE ASCIZ STRING 

(3) 013670 OOC407 BR 64s oes OVER THE ASCIZ 

(3) :s ASCIZ <15><12>/EN0 OF TEST 

(3) 013710 64S: 

(2) 013710 104400 013756 TYPE SENULL ;TYPE NULL CHARACTER 

(1) 013714 013700 oo0042 SGETH2: MOV ae4e. RO : GET HONTTOR ADDRESS 

(1) 013720 001414 SOOAGN +e F NO MONITOR 

(1) 013722 022700 013742 CNP 8SENDAD, RO 21S MONITOR ACTI1? 

(1) 013726 O01 SENDAD : :NO--BRANCH 

(1) 013730 eae 177777 00002 CMP 8-1, 2(RO) =: YES--IS THIS THE LAST PASS? 
(1) 013736 001005 SDOAGN ::NO--MAKE ANOTHER PASS 
{1} 013740 000005 RESET *:CLEAR THE WORLD 

(1) 613742 004710 SENDAD: JSR PC, (RO) G0 TO MONITOR 


Pr y= 
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OZRPKB.P1Li END OF PASS ROUTINE 
000240 NOP ss SAVE ROOM 
NOP i 
NOP Tll 


00024 +3 
O00? 005114 Q#RESTART 


ae IMP RETURN 
377 000 SENULL: .BYTE -1,-1,0 : sNULL CHARACTER STRING 
013762 EVEN 
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OZRPKB.P11 END OF PASS ROUTINE 


~“I~s~) 


-SBTTL #£# SUBROUTINES ### 
7 HBHHEHHHEEEGHEHHHHHHHHHHHHHHHHEHETHEHEHHEHHEHBHHEHEHHEE 


.SBTTL ERROR HANDLER ROUTINE 
ETN ROUTINE ai INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;#SAVE THE ERROR ITEM NUMBER T 


AND THE SS OF THE ERROR CALL 
;#AND GO TO oe ON ERROR 
PS he OPTIONS IDEO BY THIS ROUTINE ARE: 


;#SW13=1 
;#SW10=1] 
;*SWO9=1 
7 #CALL 


3% ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 


#SWO8, J#SWR ;SEND ERROR MESSAGE TO TTY? 
7 ; YES--BRANCH 
32S THERE : LINE PRINTER AVAILABLE? 


NO- 
iYES-— TUP STATUS 

: ER REG.’S FOR LINE PRINTER 
;;SET THE 

:;DON’T LET THE FLAG GO TO ZERO 

: DISPLAY NUMBER AND ERROR FLAG 


aaseaes 
SeEes 
Saat 
8 388 8 
3 Bez 8 
aRoiRe 


é 

<£ 
85 
es 


= 


: 


+ OF ERRORS 
;;GET ADDRESS OF ERROR INSTRUCTION 


SsSten tances 
Sas 
Samasweage sees 


S$ 
SESCAPE , (SP) 
OeTPS,aeSTPS | ;SET STATUS AND BUFFER REG.’S 
O8TPB,oeSTPB =; FOR TTY 
;RETURN FROM ERROR CALL 


5 Me EAE 62 9 A a a AE a EEE 
-SBTTL TYPERR - TYPE ERROR ROUTINE 


ee Ne ee et et et Rt et et Rt et et Ret et et et i Net We et et et Net Get et Se Ne et ee et et et et et ee et et ee ee ee ee et ee ee 


OOOOOGIOOOOOOOCOOOOOOVV0O09O00O000000000 
ee ee ee ee ee Oe an ee fe ae a ae Be be Be ra Bs Be Ds foe Bs be oe Be ee 


SELES LECLSSCLSELCLS 
DLRFOSLBERKES SOL 


1 
1 
1 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
{ 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
1 
1 
1 


~~ 


NNN 





ee ———————EEEEEEEeeOOr eee 


SSAGE POINTERS 


INE FEED SWITCH 


ITEM NUMBER 


INTO Ri 
° 


FOR ERROR TABLE 


F THERE ISN’T ONE 
RETURN - LINE FEED 


VE RO 
S--FORM OFFSET 
RODRESS 


«SAVE THE TEST NUMBER 
bave ROCKS 
*GET ERROR MESSAGE (EM) POINTER 
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;COPY RO-RS IN SREGO-SREGS 


ore HERE 
;SPECIAL ERROR ITEM NUMBER? 


HE APPROPIATE INFORMATION 
-TYPE THIS MESSAGE? 


;MESSAGE POINTER 


tPORM TEST PC 


-IS ERROR > 
;"EM" POINTER 


“YE 
FORM 
: BRANCH 
:*CARRI 


z 
= 
= 
a 
= 
f 
S 
ie 
zs 
zg 
5 
oOo 
= 
S 


en teD IT THEN OBTAINS, FROM THE “ERROR 


aSTMPO 
»RO 


anne 


Cavtararacetar-& 


MACY11 27(663) 
oe ed 
REPORTS 
PC, d&#TYPERR 
-SERRTB 
RO 
@eSVSTAT,R1 


Ri 
Ri 


= 
: ze 


t¥ 
-e © 


2S 
ving = 


ee ee 
nA + +4 
~ 


- TYPE ERROR ROUTINE 


sissssssss 


see ee 
scapes sapere trance sane 


hh et ed eed od Or ah dd i ee ee ed 
QOQOOOW9WWHOHMOOO000OM000900000 


LEK P ERIE CRS BOR NRT RR RE = peopeperpent ts EA 


RRR RRR RRRAE RRA RRR RAR AR “ 


TYPERR 


“4 
=O 


BRSARSYT 2, : 
: 


014336 012237 014360 


0 
0 


014324 104400 014332 


014330 000402 


014336 


Pll 


7223 014372 000761 
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DZRPKB.P11 - TYPE ERROR ROUTINE 


o14404 - sae eae yee 
BR 
o144e2 gS: 


001207 


a+ 


-«~ 
3 
ae 
+ 


;PICK UP gid. HEADER (OH) POINTER 
ser IF tts RETURN-LINE FEED 


;"DH" POINTER GOES HERE 
oe TA TABLE (DT) POINTER 


a 


8=8ac8= =. 
pees Be 3 


saatga qe 


z 


ipBeR oe 
;BRANCH IF DH NUMBER IS 0 
Conk 

; CARRI TURN-LINE FEED 


82 
eS 
F 3 
a 


en 
eit 
2 


~ 
on 
3 

— 

++ 


NUNBER TA 10 TYPE 
Octal OR DECIRAL? 
; DECIMAL - BRANCH 


a 
3 


a 


;;SAVE o(R1)+ FOR OUT 
;;60 ~~OCTAL ASTI CALL DIGITS) 


FICaAe Sa SONE RSE NRCS 


~~ 
COOCOOQWOOOOOHOVOOHVOOQVONOVHOOKOOKOSO0O0000000 


oo 
bm 
er 


3 3VE a(R1)+ FOR TYPEOUT 

GO. TYPE- eRECtRA, Bagit WITH SIGN 
;NO--BRANCH 

s YES-- TYPE SEPERATORS 

3k 

;MORE_DH’S? 


Nescoat A NEW LINE 
:NO--BRANCH 


Sagnnss Solis iiahas ie acces 
Pesan 


Fi 

o£ 
55 
BR 


TVA TTA 


cpsssiant 
Unie 


5M aE 6 96 6 A A A A ER REE EE 
-SBTTL TYPE ROUTINE 
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OZRPKB.P11 TYPE ROUTINE 


; #ROUTINE TO TYPE wits: Zt Ne oe MES: T TERMINATE WITH A O BYTE. 
;#THE ROUTINE WILL INSE R OF NOLL PenaRAC TERS AFTER ALINE FEED. 
;#NOTEL: Shut COTA arn THE CHARA Oe ue BE E USED 6. 

site CONTAINS NS THE. CHARAG CHARACTER "0 FI ILL COPTER. 


*#CALL: 
j#1) USING A TRAP INSTRUCTION : 
TYPE § ,MNESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


TYPE 

' MESADR 

:#2) USING A JSR INSTRUCTION 
i* MOV PS, -(SP) ; PUSH PROCESSOR STATUS WORD ON THE STACK 


+ PRS TYPE ROUTINE 
;FIRST ADRESS OF MESSAGE 


iTS nerf TERMINAL ? 
HERE IF NO TERMINAL 


an 


ie Seu te 


E89 


S 


poResaareRe 


~ 
io 


O14646 
001150 


001146 
000001 
014646 iG 
164270 STYPEC: STPS >;WAIT UNTIL PRINTER IS READY 
164262 NOVB (SP), @STPB ;;LOAD CHAR TO BE TYPED INTO GATA REG. 

: REAALRERALRAEA SARA A LEAS ALEA ASA LRERASAHKERS RAPALA REA RASA ARS AREAE 

-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

: ¥THIS ROUTINE TS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 

;#OCTAL (ASCIT) NUMBER AND TYPE IT. 

iis TyPCS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


MOV NUM, ~(SP) ;NUMBER TO BE TYPED 
TYPOS t ECALL FoR TYPEOUT 


fe 
<r 
SRquRBsAes 
OMS 
Hae 


eee 3 
i 


& 


Pane Pb we hat be bs be be Bt be Be he eo he be be eh Be Be hme be he = hs pe Pe he 


OOOOO00O BOOCOCCOOOOoOO0O0000 
Bo eee be be Ge oe bee Pat PH G8 hae fe = be Ps he PS pt ee pe he bm 


Rageiaen BOE 
ae 


( 
( 
( 
( 
c 
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( 
( 
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( 
( 
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( 
( 
( 
( 
( 
C 
( 
( 
( 
( 
{ 
( 
( 
( 
{ 
( 
( 
i 
( 
( 
( 
( 
( 
( 
( 
( 
( 
72 
( 
( 
( 
( 
( 
( 
( 
( 
{ 


PH b= bP = bh Be 
ee et et ee ee es ee ee 





AIM? 


; T ALREADY 


GIT ASCII 
NO 
NG 
IS DIG 


THIS DIGIT 


IS DIGIT? 
CI 
I 


NUMBER OF DIGITS TO TYPE 


& FOR NUMBER OF DIGITS TO TYPE 


fn SUPPRESS ANYMORE 0°S 


;CALL FOR TYPEOUT 


= (SP) 
 ¥STYPOC---ENTER HERE FOR TYPEQUT OF A 16 BIT NUMBER 


aii 
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;;NUMBER TO BE TYPED 
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oyf 
Boece open se se 


MOV NUM 
TYPON 


ee BEE 


we 
¢ 
5 
ao Y 
ee 
= 
3 
e5 
? 
e 
? 


s#STYPOS OR S$TYPOC 
3 *#CALL: 


BINARY TO OCTAL (ASCII) AND 


npesneney eoespaperonee unter 


ESS SSSA USS —* 


capaho bandon bandon pen ponlankenbonbonbonbenbenben}an}onpond-on ten bon ben dondon}anben}on}en band ponpen pan ponpen pend 
QOOOOO9OHOOGOOOHOW0OOOOHOOOOOOOK8OOMO008MA0000 


Bh hh hd hd ah hd OG Oh Rh hh Od hh i hd dd a tt mt tt 
Re Se et et eet Set Se Ne Set Se Se See See Stee Nee Ne Sel ee See Set Se See See Re See Nee St Om See Sie See See See Set Se Se St Set See See Net St Se See Set Nee Set See See Set Net Set et Set 
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3&8 009; 
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4 = 
-oEee wes 
¢ § se $i 
ai. a ee 
s & kare 
Ste x #soes3 
wiewere Saw $ 
SU wee 2WSSr, s 
“pear. CeEOe es 
SASL OT SONe s 


Se H 
ezose 3 

nz whores : 
ee : 

We Sdasrmaness 
a Ps S55 


oooco4 


ee Ree Ke Kok Kom 


aeeeeae mon 


L8SS4S52 


ea dak bantam bondertan 


Heir etiete 


So Meee Reem Keon Rte een Mate Koes Kee Kem Roe Bee od Kon } 


UMO}YOOIAMOODAON00NN 


DOF Ong Od 9 Hd 9 Od 4 od 4 
SF Nel et et Net Sal a Net St et Nl Set et et 





-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


i i ee a ee i ee ee ee i te ee ee 


Ni 

END! 

NUS SI 

ZERCS 
;;PUT_THE BINARY NUMBER ON THE STACK 
;;G0 TO THE ROUTINE 


NU! 





ou 
IRS 


Seeck’ tari “8. 
BSBBSSBa oss 


4 


ag H 
he 
qeeruspeee 
Oooogdgona ste cQ--« 
NSU MT aD 


LALLA LALA LOIN IN NIN InInInin 
abandon hen donbandonhan don bon ben ben ben ban) 


{wo Tow ] aw | ow | So | we | oe | om | we | ow | wo | we | oo) oo) 






PR ROR OR LA EN AER ABE OE AA ARO OO 
Re Reon Keel Neen eee Doe oe oe ee eee ee eT aU) aol ao] oe) 0) OD ee ee ee ee Ke feet keen Neem bee Lee Neate Kee Kee bee het Kee Dee Kee te 
ee See et ee et et eet eet ee ee 


ee et et Nt et See Se et eet et Set Set et 


22800, pal tteictat 


SOT, (RO) 
1,RS 


aS 
i 
i 5S Eg 
Ss 9 63.9 
-—o —— 
B28 Ww WO5. 
Tay Ese o 
ae oes 
a2 S¥¢rats 


»R1 


4 “ 


in~hm— ~~ 


waa 


[eG7 ee Savne as 


5S: 


cn $ 


sae SRS 

eet pies 
SSS ETT: 
BDOOOOOOOOGO0R 





-—one Pe ee ee ae 


ee NN ee et et et Se ee et ee et eet 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


1 177777 MOVE 1(SP),-1(R3) 5 ;YES-~SET THE SIGN 
ee ee a8 


Tyoee8 


z 
an 
“we 


Qo 
o— me 
i 


~- 
£ 


000019 


ae 


I 
1m LSO THE FIRST NON-ZERO” 
~-SET THE SIGN FOR TYPING 
INATOR 


7 
9” 
ee 
9° 


a 


Re 
INTO Rl 
TACK_INTO RO 


.? THE 
te ROyUST THE “STACK 
7 sRETURN TO USER 


ee 


saadaarasyenscye2 


2 


SENNA THORS Fam eROS 
z 
8 


COoOr-O0O00Or-~r~-r 
nr Ammen ee i 
. 


aa 
o£ 
38 


SOTBL: 


ec ee i eee te a el al ee ee ee ee ee ee E | 


bo = b- b— 0 = 0 b= b= = fF O—= P= 6 = 6 bb = b= 0 0 8 = boo 


OOOIHIOOOOHO0OOHBOYVOMOV0VN0O00000000 


ee et et et Net et et et eet St et et et Set et et eet eet eet et Set eet at et ee ee ee 


i 
1 
1 
1 
1 
3 
1 
1 
1 
1 
1 
1 
1 
1 
3 
3 
3 
3 
3 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SOBLK: .BLKW 4 
H PSESERSPEFSSSSSRLHSLSKSPASCERER ETE REREKERPHRKRSYRE LES RESLSER SERRE 
.SBTTL TTY INPUT ROUTINE 


7272 


aa 


STKINT: 
STARTING ADDRESS OF THE 
oe TO HE INPUT & OUTPUT POINTERS. 
VEC :: KEYBOARD VECTOR 
1200 aetKVEC+e :; 
#82706, aSTKS 
 . 


Pott eat ae tt ane tt ae ane, den hae, ae ae ee ae es ae ae tee hae ee fe De co a 


b= b= b= b= bb — b -  = b b b- B  -= — P= DP b= & + D9 = = = Be hs 
ee et eet et et Ret Net eet at et et et et at at et et et et et ee et et et 


Ooro000g 
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OZRPKB.PLi TTY INPUT ROUTINE 


;#TK SERVICE ROUTINE 
;*#THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 


$TKSRV: MOVB asT«g -(SP) PICKUP THE CHARACTER 
) 


ea 
o 
es 
pee 


77, (SP) ::STRIP THE JUNK 
SP), 83 21S IT A CONTROL C? 


1 
SCNTLC A CONTROL-C (1) 
PC STKINT KE 

START 

82, STKCNT 
2g 


BEeoRete 
RgSseee 


x 


Qn 
z 
~- 
“4 


NOE 
GGSaR 


B3a3898 


8 
8 
x 


SBELL 
tSP)¢ 


<£ 

~~ D-1-4 
Soa 
~— 


STKCNT 

(SP) QSTKQIN 

STKGIN, 8STKQEND ::GO OFF THE END? 
$s PREM IF NO 

Ho BSTKOSRT,STKQIN ;:RESET THE POINTER 


3s: 
: Tee TT Trt tT eT ttt ti ttt tt i ititiiiti ttt ttt tii ttt t ty 
; #THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


7# ¢ 
‘ ss INPUT A SINGLE CHARACTER FROM THE TTY 
;;CHARACTER IS ON THE STACK 


Be53¢ 


w 


OOO IBIOVOOHGOOO0OVWO0V00000 
On 
aemtae 


INUTUTUTIUUTUTUUTUTEnUTUTUTUTUTenUTEn 
uw 


pit POM WE PC OO 


:GET READY FOR A CHARACTER 
s;ALLOW INTERRUPTS 
::WAIT ON ® CHARACTER 


TKCNT - THE COUNTER 
TKQOUT,4(SP) 3: CHARACTER 
KQOUT se THE POINTER 
TKQOUT, 8STKQEND’: DID IT G0 OFF OF THE END? 
m ov SSTKOSRT, STKQOUT’: ; RE POINTER 
Titi 
#THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
” ROLIN :; INPUT A STRING FROM THE TTY 
RETURN HERE :ADORESS OF FIRST CHARACTER WILL BE 
>: TERMINATOR WILL BE A BYTE OF ALL O 


; SAVE R3 


MOV 

OV 
CL 
Cu 
TST 
SEQ 
DEC 
INC 
CMP 
BNE 
R 


OOVOOOMINAISHOOAN 


® 


gn THE STACK 


SROLIN: MOV R3, -(SP) 
CLR -($P) 


$: NOV SSTTYIN,R3 


RUBOUT KEY 
1 SS 
es: CMP BSTTYINS20. ,R3 


CL 
T AD 
BUFFER FULL? 
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TTY INPUT ROUTINE 


B.Pll 
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DZRPK 


HARACTER FROM THE TTY 


ee | 
;;RESERVE 20. BYTES FOR TTY INPUT 


;;CONTROL “C” 


+ 


THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 


SHEREKRLLAERALAAERARSLELAAAELED 


TE CTORAGE FOR ASCII CHAR. TO TYPE 


saearer emesis Seats ee 


nee sissies caiaiecaieamieamee minal SRou 


/#0/¢15)< 12> 
MeSH Ee a AE Ha a EE 


-SBTTL SCOPE HANDLER ROUTINE 


/tU/<15>< 12> 
20. 


gp 
ASCIZ 
BLKB 
ASCIZ 


Saas 


9S: 


016051 


_ en ies be 


= par ph | Ogsass 


HAMAR RADAR st ee come 


RAR RA RRARARRARA AAA SS 2I330322383.2.0 
QOOVOWOWOOOWOWO2WOWOWWGHOWOWVWOKWBHWOOVWHOWO90OHODH0OONOH0MO00000 


ROR OB OAR ARO OOONOOOROOLRLORLOOALEN ONON 


A we Cn le A Sa IO a SA AE A A RS ES 
a el Se Ne el ee et Se Ne Se Se Net Ne St et et Rt et el ee et St Net Net ee Be See et Se Ne Se Nee 8 Se Set Set Net Se Be Set See See Set Set Set Set ee 


~ 


cm me heen) 
— ew 
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OZRPKB.P11 SCOPE HANDLER ROUTINE 


eS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT ec. INCREMENT 
LOAD te TEST ye as INTO THE ArH Y REG. (DISPLAY<7:0>) 
Mi es F a yi ee 0 aoe a 


Bil SOVER 
jeeeeaSTART OF CODE FOR THE XOR tt 
$XxTSTR: BR 6$ 


@sERAVEC 
a5 RAVER 


_— 
o” 
QQ000 
— Ceo 
rm 
~) 
Ty) 
“I 


SS: CMP (38, Sod 
(SP )+ 


6$:; seensstND OF CODE FOR THE XOR’ {LOOP OTH 
2s: SERFLG HAS AN ERROR OCCURRED? 
SeRMAX, SERFLG abc lds FOR THIS TEST OCCURRED? 
BBITOS, JSR $300 ON ERROR? 
:;SET LOOP ADORESS TO LAST SCOPE 


z 


onus 
o~ yr 
mi 
[t,o 


b= Bo bh aw Bs fe Bs he b= be B= st pH bee 
A 


POMOC PCKKMOKK Do 
ANIHLHFSEESRLSF 


BS 


TIONS TO MAKE 
ESC THE Tes 
Dw ” ITERATI 


31 
+ CHECK 


RRR 
Oco 
8 
ce 


= 


eee 
: 
parma 


O0OO0-00 
a 
Bae 
a388 
S 


— 
Bee 


SOS RRRREROY 


or 
eo 

Be 
or 
88 


SOVER: 


ia tounit eek Senate NEXT Teer 


ay 
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if 
( 
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( 


bs bb b= = 0 be Bs bm 0 bo be 2 2 Bb = hm DO me fF = = = Bh b= be bh 2 Be Pe bb me he 
i i i i i i et ett i tet th 


NDOOMOOOCOCVOVHVOOOOVOOOOOOOVOOOV20O0O0000O0 
0 be Ome Be Be han me Om he be ae ee be 0 me be 0 b= me 0 be he ee Be Om Oe 


: 
: 


SMXCNT: NUMBER OF ITERATI 
et maenmnmmmmmbienectetaanieans 


~ 
oo 
= 
= 
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THE TRAP T FOR THE 
USING THE AOBRESS OBTA 


wr 


ee ee ee 


ANCE NSS 
THVT TTR 
satel ncnin ith tn Orion oncries 


Oo 
ca FN ee et et Net et et et 


ine THE LOWER BYTE OF THE “T 
NE. 
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RO, -(SP) 


REX 


4.) 


S BRBBREEEES 


Feta ah 


I 


_BESESSSEES 


INES 


~ 
' 


: 
z 
: 
: 
: 
: 
: 
: 
: 
3 
: 
: 
: 
: 
* 
: 
= 
: 


$ XUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


t eTOP===(416) 
1# $2---(418) 


.SBTTL SAVE AND RESTORE RO-RS ROUTINES 


.S8TTL TRAP DECODER 
s®THIS ROUT 
*#G0 TO THAT ROUTINE. 


; #AND 


;#RESTORE RO-RS 
s#0OF T 
STRAP: MOV 


#CALL 
$RESREG 


ces 
2 Ee 


Son penpondondanden bon pendan pend a eg ed ed 
OOOOOMO0O0 O000RAM0M000O0 


Givsuasewss seeuoseeerss 


pn pan pan bandas das dun dan dondes tendon, So pow fan foes has pan pan bon hem pon deus bond 
QOOO009O000000 Q00900000000 


-OZRPK-B “MECHANICAL AND READ/WRITE TEST” 
SAVE AND RESTORE RO-RS ROU 


LOO LOR LD LOL LOR LOLOL LO OD LOB LDL LODO LOO LOR LOR OOO LOO PLO LO LOL LL Ly EO Fy Ly FO, Gy Fm, 


i Ai i ett tte 





uno 


MACY11 27(663) 23-JAN-76 10:16 PAGE 43-66 


MOV 2 (SP) ,RO 5;GET TRAP $s 
TST -(RO) : sBACKUP BY 
MOVE (RO). RO ::GET RIGHT BYTE OF TRAP 

MOV STRPAD (RO), RO i INDEX TO TABLE 

RTS RO 3360 TO ROUTINE 
.SBTTL TRAP TABLE 
THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
"BY THE “TRAP” INSTRUCTION. 


STRPAD: 


2 
1 4 
TRAP+ tae 
SRE se = G  TRAP+20( 104420) RESTORE 
Pri ritirtiititititittiiitiiiiiiitittitiiitirtrti tity 
-SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


;*#THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
; UNSIGNED DECIMAL ASCIZ NUMBER. 


;;PUT BINARY NUMBER ON THE STACK 
ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 


PR LOR LR LOR PR PR LP OP FP I OP LO PO FP PO FF FN, GO 
ee et ee ee et et et et ee et et et et et et et et et ee ee ee ee ee ee 
o 


CDCI CAD CDC) Gd OC GIGI GI GIGS 0) OG) La) Ls) b= = me Bo Be me 


OO0000000 


at 


p000Ce 016504 : ;;SAVE BINARY NUMBER 

016504 MOV :sSET POINTER 

016510 ;;CALL DOUBLE CONVERT 
Hooode et + POINT 


(1) 
(1) 
.1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(3) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


15: . WORD 
; PoPETeTTITTTTTi Ti Ttrt iT irri tii Tritt t itt ttt ttt titit tt tttt ty} 
-SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


BIT BINARY NUMBER TO AN UNSIGNED 
BINARY NUMBER MUST BE 


3 


genre ~(SP) ;;POINTER TO LOW WORD CF BINARY NUMBER 


au808e0 THE FIRST SS OF ASCIZ 
31S ON THE OPack 


PRO LOR CR FR FR FR FS CRN 
ob bp 0 2 8 9 be 
et ee eet eet SS et ee ee et ee 





FAR 


DO 10 CONVERSIONS 


ADDRESS. OF ASCIZ STRING ON STACK 


? 
SERLREERELE LA ELARARRRLLARLARE 


;GET 
PUT 


;RESERVE STORAGE FOR ASCIZ STRING 


bis 
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a 
;;PICKUP THE DATR POINTER 
;;PICKUP THE BINARY NUMBER 


;;MOVE TO NEXT TEN POWER 
;;CHANGE PARTIAL TO ASCII 


;;SQVE IT 
; ;DONE 


;;SAVE RE 
;;1.0€00 


Tm 


MACY11 27(663) 


a a 


le. 


cue 


Sun 
smgaegagee tu Sythe he Reef BR sw 


2 
i 
Z 
g 
4 
z 
5 
. 
2 
g 
i 
3 
a 


5 RRAREELA SLA EASRA ELAS RARER EERE EE 


SDECVL: .BLKB 


es Es : 
BSS ee are se 
FE se SOU UE NSU coer Ce vetesceuree ere ueCr STE 


Fe Soars Seen fee Soak hams pan foes pam Seen poms foam fon fan fare am an. fan fam fas han fan Jean fas hon fan fan fan fas foes fon fandom jen fan fon fan hen pan jon ben pas pon fon hen panponton pan 
OOOO OOWVOWGHOHADWWOOOHOOHOHOWVWOOWOHHOKBWOWOKHAHAHOKNAO0009800N000 


DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


SLB LOLOL BLOB OR LO LOD LD LO LOLOL LOL LLL OL GO OG Fi a LG Gy ey ON, OT 
Se ere e eee ee ere eee eee aeelslsninininininisinisisisisisisieres om eee] 
tt a Nt et Ree Nt et et Net Hae Nee et et Se et Nt Net Set St Net et Set et Set Se eet ee 


MAINDEC-11-DZRPK-B “MECHANICAL AND READ/WRITE TEST™ 


OZRPKB.P11 
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ASCIZ STRING SUPPRESS LEADING ZEROS 


CAL AND READ/WRITE TEST™ 
CAL 


;;FIRST ADDRESS OF ASCIZ STRING 


RETURN 


hha 


8NUMADR, - (SP) 
PC, a8SSUPRS 


= 
2 
: 
2 
& 
E 
2 
8 
" 
= 
3 
= 


;#LEADING NUMBERS. 
MOV 
JSR 


; #CALL 


Tk. w 


AQO00O0OMO000000 


QOL LO LLB LEO LPO LO Fy OO FL Fy EO 


DF Ed gd Od ed Od a ed Sd En Cm dt dd dd dd bd a ed ad td ed ed dd eg tg EOD OD Wt 


i i i i i 


DIVIDE BY ZERO 


ALL ONES 
ALL ONES 


SELLLELELRERLL LEE ELLLALSLERE 


;;QUOTIENT & REMAINDER ARE ON THE STACK 


S ERROR OCCURRED 
ALL SEROS 


NO ERROR 

DIVIDE OVERFLOW OCCURRED 

ATTEMPTED TO DIVIDE BY ZERO 
OVERFLOW 


STACK NO ERROR 
REMAT 
QUOTIENT 


TOP 
#2 


TTT ESOT TTETCPTPTTreTeTT LT 


3 HHBHHHHEHHHHHEHHHHEHHEEHEHEHHE 
-SBTTL INTEGER DIVIDE ROUTINE 


££ QQ OLE LOO LOLOL LOLOL LE GO 


ee ee et et Ree Nt Net Se a et et St et Net Set St Set Set See eet Set Set eet Set et et et ee 





1s,ARr 


TION COUNTER 


DENO 


TO ALL ONES 


ee TRACK OF DIVISORS SIGN 


;;NEGATE THE ORIGINAL NUMBER 


FROM STACK 
GN CORRECTION NEEDED? 


*T FORGET QUOTIENT 


ITNOER 
i Guorient SIGN CORRECTION NEEDED? 


AR =c™ 
ART FORMING QUOTIENT 


ah 
REMA 


LRAESREREHELERARRESELE ASRS ELEE 


PickuP Tre DIVI 


5 Sabb 


S CETUP TO RETURN CONDITION CODES 


; ; RETURN 
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( 
) 


MACY11 27(663) 
a> ($P) 53 
] ee 
erttittt tt tt ttt 


#17.,- 
(SP) 


me i 


sestinsOnceupst ing ahS 5 


BBS scene Sa Be SESuE devin a nnUynesSSSSaaS 


RTI 
5 AEM AEA aE a 


s 
i 
3 
g 
a 
a 
5 
¢ 
fe 
" 
3 
z 


2 
2 
S 
& 
ws 
8 


INTEGER DIVIDE ROUTINE 


_ a 8 BS 
Fa es ee et 


EA GRREREREREEP ERLE EE EP ER ORE ReRERER rere eeteeR eee 


AG ed OG eG ad ed mad a ad ed eG md a Od hd dh a ed ed et a ed hd ed eh a ed RH 
QOOOWOOOW BOBO OO9OGOWOMNOWOKHWKHOOOI2QWHOONO0O0OA2M00000000000 


CT at rt Tr er Te ee ee ee ee ee ee ee De De ee Ee ee De ee ee De oe eee ce he oe ee hae he ee ee eee Lae De fae he ee ee ee, ee 
I I a a da dd a hh hd a ad Od a dE hd hd a ad tt at Ot wd EEO ODOM 4 
Set el Sed Sl Set Mel et Se Sel Sel Sl Se See Sel Se See Se Se See Sel Se Sel See See Se See See 8 See See Nee See See See See See See See See See See See ee Set See See See See ee at ee ee eee 


x 
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DZRPKB.P RANDOM NUMBER GENERATOR ROUTINE 


HaCALL: A RANGE OF 0 TO 2(+33)-1. 
JSR PC, SRAND 
RETURN 


REAR) 
WISER 

Oooo 00o0 

Soneeae 
BR2B 


pe be fe fh we pe 


it 

Po 
—- 
tH 


ss 


017314 
017312 


PPaDRRSat LF 


as: 


e0220 
4 
8 
Gq2zBPReBIAZAB 


SRERE ISAT RR RDS RaR VANES Ras 
68 


gi 322822 SBRERERAGRERERGAEPCEEREEZE 


— ae ae ee he) 


SHINUM: 
SLONUN: 


J err ery tao 77 eeemmnemantns 
“SBT -AVL - LINE PRINTER AVAILABL 
Prey S ROUTINE WILL CHECK IF THERE IS A LINE PRINTEP AVAILABLE AND SET 


pint 2 HF Chote 8 Ra 
;3* «JSR PC, BL P.AVL 
3% RETURN 
017316 LP.AVL: CLR OsLPTAVL ;START WITH NO PRINTER AVAIABLE 


( 
{ 
( 
( 
( 
{ 
{ 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
{ 
( 
( 
( 
( 
( 
{ 
( 
( 
( 
( 
( 
( 
( 
( 


oo 0 C0) CI Ca Ca) = bm 2 bb hb 0 0 CI LI = a 


QOOO OOOO OOGBOHOOGOOVOCOOO00000090000000 
De pe oe ee oe be Be fe fe a oe fs Ds Boe fe mB ee be Bae ee oe fe bes te ew be ee he 


Re be 
£r 





MMmaOQ 
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OZRPKB.P11 LP.AVL - LINE PRINTER AVAILABLE 


012737 ;SETUP THE TIMEOUT VECTOR 


oR 
TST :1S THERE A LINE PRINTER? 
30 IN YES--SET AVAILABLE SWITCH 
1$: CMP (SP)+, (SP)4 -NO--POP STACK 
012737 2s: MOV aermvtcee, aeERAVEL 5 -RESTORE TIMEOUT VECTOR 
000207 RTS : RETURN 


Ly acrey to9 5 "y -7 > eee 
a a my vie ut i rate at IF THERE IS A CLOCK ON THE SYSTEM 

LL_SETUP THE VECTOR AND START THE CLOCK 
Pcusta WIL WILL. INDICATE” THE CLOCK TYPE 


je+ls Ki-P 


See ey eee 


a 


SSTHIS MROUTINE WILL ALSO SETUP “TICKMS” (TIME 
;#PER CLOCK TICK IN MILLISECONDS) AND “TICKUS™ 
:#(TINE PER CLOCK TICK IN MICROSECONDS) AS 


selllleelelety 
WOON UI£ WITH O 


ge 


;SAVE R 
; SAVE AND SETUP TIMEOUT VECTOR 


;LEVEL 0 


;G0 TO 1§ ON TIMEOUT 
;SET CLOCK gt al TO NO CLOCK 


#1,CLKSTA YES--SET sh TO KWl1-P 
PC,ST.PCLK ;START THE KW11-P 


& 


8 
ogres 
Fae 


aes 


(SP)+, (SP)+ 

825, (R1) ; 

aLk 21S THERE. A Ki -L? 

#-1 cLKsTA : YES-- Tstatus” TO KWLI-L 
pe, ST.Le ane THE KWLI-L 


;CLEAN UP_THE STACK 
sRESTORE THE TIMEOUT VECTOR 


; RESTORE Rl 

: o 
“BRANCH IF 60. 

#20, d8TICKNS — ;SETUP Tine PER 

820000. , d8TICKUS’ ; TICK FOR SOHZ 


#16, d8TICKMS ;SETUP TIME PER 


S 


ks 


Q0g 
— 


tat =) 
é 


asa gaggaaaaaa2 2az0sseRe 
a : 


P32022 SRR RSERO RAS NORONN 


a 
°o 
= 
8 
S$ 





(geo e EE Re eerie ra ee See TT pa eT 2 = EE Ee EET” 
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OZRPKB.P1 ST.CLK = CLOCK STARTUP ROUTINE 


34? #16666. ,aeTICKUS ; TICK FOR 60HZ 


MOV * 
Ss: PC RETURN 
ST.PCLK: 


“ 
a 
_ 
o 


SHOS, 34C. SHR ;ALLOM SOF THARE TIMEOUTS? 
‘SETUP THE KWLI-P VECTOR 


8 
~ 
oO 
ee 
£ 


#SRVCLK, OPKV 

$300, aPKV+2 

#1 sCOUNT ONE TICK 

#115, aPKcs :"INT.EN.".COUNT DOWN", “MODE 1 (REPEAT)", 
job INE FREQ", AND “RUN* 


Ooooo0o0OoO aga 
Bao bxo fs pe paw b= pe fe he co? 


sALLOW SOFTWARE TIMEOUTS? 
;NO--BRANC 

:SETUP THE KWL1-L VECTOR 
sSTART THE KWLI-L 

: RETURN 


saa FR 
a) ESS 


ad 


1S: 
SRVCLK: DeTICKMS,-(SP) ;TIME TICK IN MILLISECONDS 
RO, J#RPTAR °C HE TIME 
RETURN AFTER INTERRUPT 
Sogo PT 1 eeereeerer renee 


-SBTT yoy 
:STHIS ROUTINE “Lone 8 READ HEADER AND DATA COMMAND OR A SEEK COMMAND 
s#INTO OPB AND DPB.C+2, DEPENDING ON THE STATE OF “CONTROL SWITCH” 


o00 2000000 
pm dam pe SIS 
a 
£ 


bee & 


JSR PC, d8LDCND 
RETURN 


IT #SWO7,a8C.SWR ;DO EXPLICIT SEEKS? 
BNE 1$ : YES- 


BRANCH 
SREADHD, 9 #0P8.8+2 ;NO--SET UP FOR READ HEADER AND 
MOV SRERDHD, SEOee: C+2 DATA COMMAND 


BB: -B+2 ;SETUP FOR SEEK COMMAND 
ds0PB.Cte 


poesseee 
Jolntatatatet 
aseeonee 


2s: RTS 
STL CR AY CALL PUN RIVER ISI ee eee 
*SBTTL CALL RPOY DRIVER USING 
s#THIS ROUTINE WILL CALL THE RPO DRIVER AND THEN WAIT ON THE FUNCTION 
:®#TO COMPLETE. IF AN ERROR OCCURS IT IS REPORTED. 
FILL “DPB” WITH COMMAND INFORMATION 
JSR SCALL.A 


et 
7350 
7382 
7383 
7384 
7385 
735 

7388 
73893 
7360 
7361 
7362 
7363 
7364 
7365 
736 

7368 
7362 
7370 
7371 
7372 
7373 
7374 
7378 
7376 
7378 
7373 
7380 
7381 
7382 
7383 
7384 
7385 
7386 
7388 
7389 
7390 


CALL.A: CLR deSESCAPE ;NO ESCAPE ADDRESS 
JSR RO, d#RPO4Y ;CALL RPO DRIVER 





a ST ceaaat Nee 
cRPKE.F ALLA 


eS 
rp 


4 
Hs 


az 
AOC OQOGOOONAIOO00NMd 


deat 


. 


O-- = & * 0 0 F< po 9s B= P= b—-2 F—* bo P= B- + OF + 
c' 


HISeR 


~ , 
, euieinerenss Ae J22 
eet ee et er et ee ee ee 


x 
oe 


TT el eed Sel eed ed ed ed 
WONG CUITN-O 


~_ 


tet 


PE PPRRE RELI L ELS 
Ww 


ue 


8 
a 


ett SA 
S88 


cane 
s 


332 


2 b-2 8 = b> & =< P= b= b= 


ee eet eet eet ee ee ee ee ee ee 
(Ds be Be te ee 
we 
a? 


8 


PseeEoR2RB 
3 


YRBPY 
pepetee 
RSBSESES8 
es 

SBR 


tJ 
o 


RTS 
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CALL.A 

J90P8.A+1E ;DON=? 

1§ ;NO--LO0P 

3$ *BRANCH IF NO ERROR 

823, SESCAPE : ESCAPE TO 2$ ON ERROR 
gu0Pe. Re le, aacyi OS s CYLINDER 
BeOPB.S4+1i aaTRK.OS ; RACK 
S¥OPG.A+10,08SEC.0S ;SECTOR 
#OP8.A+16,-(SP) ;STATUS/ ERROR INDICATOR ADDRESS 
PC, JBERINDX : FORM Bi ISPATCH INDEX 
(SP)+,PC sREPORT PROPER ERROR 
42 :PARITY ERROR 

43 :UNSAFE ERROR 

4 *NON-170 ERROR 

45 170 ERROR 

JBBYPASS , RO ‘TAKE ERROR EXIT 

RO ;RETURN 


Set GE Se cae Rov ORtVeR SING “OEE 
;#THIS ROUTE, IS 9 pe one ears A” EXCEPT FOR THE DPB USED AND IF 
#THE COMMAND I ADER_AND 
{AND SECTOR) 
7 #CALL 


DATA THE HEADER (CYLINDER, TRACK, 
1S CHECKED FOR VALIDITY. 
FILL DPB 
JSR RO, 2eCALL.B 
RETURN 
: CLR BaSESCAPE sNO ESCAPE ADDRESS 
JSR RO, deRPOY *CALL RPOY DRIVER 
DPB.8 
BR CALL.B 
TST “B+ : DONE? 
BEQ 1§ : NO--BRANCH 
BPL 4 BRANCH IF NO 
MOV 82S, SESCAPE : ESCAPE TO 2$ ON ERROR 
MOV g40Pa.B+ie, ect .bs ;CYLINOER 
MOVB gs0P8.B+11, aTRK.DS ; TRACK 
MOVE  @80PB.B+10; aaSEC. DS ‘SECTOR 
MOV #0PB.B+16 -(SP) iste US/ERROR INDICATOR ADDRESS 
JSR PC @BERINOX FORM BISPATCH INDEX 
ADD (SP)+, PC : PROPER ERROR 
ERROR 41 : 
ERROR 42 PARITY ERROR 
ERROR 43 : EE 
ERROR 44 sNON-170 79 ERROR 
ERROR 45 170 ERR 
HOV S4BYPASS, RO “TAKE ERROR EXIT 
CMPB = @8DPB.B+2, SREADHD :DOING IMPLIED SEEKS? 
3 a ;NO--BRANCH 
JS , QVERIFY YES=-GO CHECK THE DATA 


Crna 
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OZRPKB.P1i CALL.B - CALL RPOY DRIVER USING “DPB.5” 


7435 993479 ‘ OP8.8+10 
7436 o4p00e oO0l212 4S: BIT #SW14,38C.SWR  ;STALL? 
7437 : 9 cs iNO=- BRANCH 
Be: 904 i SR RO. JeSTALL YES--CALL STALL ROUTINE 
.WORD  STALLI ts ALL TIME POINTER 
c$: ATS RO * RETURN 


2" Ney yo 1 ees 
as CALL. C Lo DRIVER USING oop ,C* 
dhty ROUTINE IS THE SAME AS “CALL.@” EXCEPT FOR THE DP USED. 


;NO ESCAPE ADDRESS 
CALL RPOY DRIVER 


ECL LELEEEED 
Eee 


sCYL 

5 TRACK 

SECTOR 

; TATUS/ERROR INDICATOR ADDRESS 
: a DISPATCH INDEX 

:REPORT PROPER ERROR 


awe 


;PARITY ERROR 

!NON-170 RROR 

3170 Fanon 

QeBYPASS, RO TAKE ERROR EXIT 

S#0P.C+2, BREADHO jOOING IMPLIED SEEK? 

RO, Q8VERIFY :YES--CHECK THE DATA 
DPB.C+1 

O0i212 4s: ; STALL? 


: H 
;YES--CALL STALL ROUTINE 
;STALL TIME POINTER 


ee es ee a er es ee et te 
— 8 
aa6 
4 
Gre 


Si 


{] 
(} 
(1 
il 
{] 
{1 
(] 
(] 
(1 
(1 


es: 
000173 38: 


SPUPKEGEEGS 


eH 
GSE 


SS: 


ee Te nae eee 
“SBT onIveR (RPOY) CALL LSIN "OT 

THIS ROUTE TS THE SAME AS “CALL.A™ EXCEPT FOR THE DPB USED AND 
;#0N AN LOCATION “ERR.CT™ IS EXAM NED. IF ERR.CT IS EGUAL TO 
;¥SERFLG EXIT is TO THE NEXT TEST. 


+ #CALL 
FI FILL DPB 
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OZRPKB.PL1 DRVCAL - DRIVER (RPOY) CALL USING “DTADPB” 


7479 ; SR RO, d#ORVCAL 
7480 ; TURN 


48! 
oy DRVCAL: CLR aeSESCAPE :NO ESCAPE ADDRESS 

CLR  - QaWCEFLG SCLEAR WRITE CHECK ERROR FLAG 
ISR Ro seaPoM :CALL RPOY DRIVER 


waa 
Le 


DRVCAL 
teal 


? 
8 

88 
as 


é 
8 
3 


ue 


*NO=-L 
: 5 BRANCH F NO ERRORS 
. TO 28 ON ERROR 
‘DS ;CYLINDER 
@eTRK.OS ; 
Z8SEC.0S :SECTOR 

) :STATUS/ERROR INDICATOR ADDRESS 
sFORM DISPATCH INDEX 
“REPORT PROPER ERROR 


Orr OO 
fn oe So 
3 3 
4 


ee 


i Nolalatetetatetate? + 
S88 


Wl notstnartarterarteacactne 


Bat Rm Be Bo be 


sT/ 
a1S,aeSTSTNM; 
* NO--BRANCH 
BURCKD, BUDTADPB+2 DOING B WRITE CHECK? 
SBITi4,aeRP.REG+IO ;1S “WCE"=1? 
8$ ;NO~ 
: INHIBIT WRITES? 


iy 2 
dz 
Re AESSAGSSS ESBS 


SRSRs 
RAYS 


7493 
7494 
a 032737 
7497 
7498 G32737 
7499 


g 
-8 
ia 


sea 
tee 


PARITY ERROR 
: OR 
tNON-170 ERROR 


TERCKD, DUD TADPB+E. <COMMEMDEWRITE CHECK DATA 
RO, d8RPOY po SHE Wi Te CHECK 


bb 2 > bh hb © bP = FF 
TU OO we wee ww Sw 


ps ee 





FP Fy Ry 


ma 


MR 
dz 


’ 
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R (RPOY) CALL USING “OT 


NOP 
$$: ; DONE ? 
BEQ 


;NO--LOOP 
:YES--BRANCH IF 
D0 A 2ND WRITE CHECK 


a 
CD “IOP U1 6 LW) 
as 
iQ 


oe 


Ri 


BRANCH ERROR 
‘SET THE WRITE CHECK ERROR FLAG 
336 ON ERROR 


RRR 
dd 


O~—-O00- 


et et eet ee es es a ee 
- os 
ge 


Seesaw aie 


La andonbenl 
S 
G) 
™“ 


US/ERROR INDICATOR ADDRESS 
ioe FORM DISPATCH TCH INDEX 


oe 
ae 


‘oearry ERROR 
; E ERROR 


PRR LN FR FRR FR FRR 
Yn 8 be bs fas be Fe Be 


*NON-170 ERROR 
*FATAL WRITE CHECK 
*LOOP ON ERROR? 
“YES H 

JsERR.CT, QeSERFLG |; =GO TO NEXT TEST? 

10 --BRANCH 

iYeS-—GET EXIT ADORESS 


7526 
7527 
7528 
7529 
7530 


% 


S$: MOV dsBYPASS 
ids: tsi, a8. aR 
RO. a8STALL 
. WORD erArTS 
118: RO 
5 REAAERELSLARALLAES ESSE SALEE SRLS SERESSAALHLE SS SAARAERAE RARE SEES 
rat qt ERINDX - FORM ERROR I 

I ROUTIN INE FORMS AN ROE. oN T WILL BE USED TO DISPATCH 


R_ ERROR os THE INDEX IS FORMED BY EXAMINING 
pia RTUS/ERROR INDICATOR OF THE APPLICABLE DPB. 
INDEX STA TUS/ERROR 


tYES--CALL STALL ROUTINE 
'STALL TIME POINTER 


Pe eeeeacRaRNeBe 


14 
iBITO3!<BITCS & COMMAND=NON-1/0> 
'<BITOS & COMMAND=I70> 


-(SP)  ;ADORESS OF STATUS/ERROR INDICATOR 
{nox *FORM INDEX 

> INDEX IS ON THE STACK 

;SAVE RO 


;SAVE Ri} 
sGET STATUS/ERROR INDICATOR POINTER 


+ 
ba 
oa 


ee ee 8 eS 
- 
ae 


a 8 


020766 O1004%6 
020770 010146 
7556 020772 O1660C 000006 


ou 
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DZRPKB.P11 ERINOX - FORM ERROR INDEX 
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7557 020776 011037 ool242 MOV (RO), aUSVSTAT Bis THE STATUS/ BROR INDICATOR 
7358 O21 005001 CLR Ri T INOEX 8 eT 2 
; 1004 032710 BIT (PC) +, (RO) 
7560 021005 90409 -WORO 8IT14! errigerTos 
7561 92101 1 BNE S$ s YES--BRANCH 
7562 OelOle 032710 BI (PC)+, (RO) ‘FORM PARITY ERROR INDEX (2)? 
3b O21014 006000 .WORD BITII!BITIO 

4% O21916 001023 BNE ; YES--BRANC 
7565 021929 632710 BIT (PC)+, (RO) > FORM ENSAFE INDEX (4)? 
7566 O2l0e2e Ol .WORD 8ITi2!BITOY 
7567 021024 901017 BNE 3. ; YES--BRANCH 
7568 0210¢ 032710 IT { d+ (RO) “FORM NON-1/0 ERROR INDEX (6)? 

8 el ood0S3 .WORO © BI TOS! BITO3 
7570 O21032 001013 BNE ; YES--BRANCH 
7571 021034 032710 BI (PC)+, (RO) FORM 1/0 ERROR INDEX (10)? 
7572 021036 0001 .WORD  BITO6 
7573 Oel040 O01 BNE 1 ; YES--BRANCH 
7574 Oe 104e 03¢710 BIT (PC)+, (RO) SOFTWARE TIMEOUT? 
7575 el 1000 .WORD BITOS 
757 021046 00141 BEQ Eg ;NO--FORM INDEX OF 0 

1950 12 000150 177762 CMPB 8150, -16( RO) ; YES--1/0? 

ae79 rate Speen 1$ Pac A 10---ERROR=4S OR 46 
fem teltee Gosstl a i & ihe tars ee 
7582 021066 reso 4S: INC Ri tie = 
7583 021070 006301 5S: ASL RI » INDEX = 
7584 021072 010166 000006 MOV R1,6(SP) >RETURN INDEX TO USER 
7585 021076 012601 MOV (SP)+,R1 RESTORE Ri 
758 021100 012600 MOV (SP)+'RO > REST 
7587 Oell02 000207 RTS PC RETURN FROM CALL 
75893 eT STALLS USED 70 STALL AFTER A DRIVE FUNCTION 16 COMPLETE 
7590 STALL ~ USE AFTER A DRIVE FUNCTION IS COMPLE 
7591 ars ROUT oF Te WI i i "ERY be STALL IN MILLISECONDS FOR A SPECI IC 
7590 sR OF C.SWR = 0 OR A RANDOM AMOUNT OF TIME 
7594 ;#STALLI 3 OF INS Siu ED TIME FOR TESTS 0-6 AND STALL2 
7595 “CONTAINS THE TIME FOR TESTS 13-16 
75% teCALL 
7597 : JSR RO, 2eSTALL 
7598 +i TIME POINTER ;WHERE TO FIND THE STALL TIME 
7600 021104 01304 TALL: MOV 3(RO)+,-(SP) sPICKUP STALL TIME 
760! 021106 032737 O20000 901212 BIT 8SW13,28C.SWR  ;USE A RANDOM TIME? 
7602 Oc1114 O01406 BEQ 1§ =NO 
7603 Oe1116 004737 017166 ISR PC deSRAND : YES= SEORH RANDOM NUMBER 
7604 Oellee 013716 017314 MOV Js$LONUM, (SP) 0 US I T FOR THe STALL TIME 
7605 Oellos 42716 BIC #177, (SP) ites x ba ISECONDS 
7606 Oeli3se OOSO4E CLR -(§P) CLEAR ae 
7607 Q21134 162766 O00001 oco002 2s SUB #1, 2(SP) STALL RE rEQutRED? 
7608 Oell42 103407 BLO 4S NOt BRANCH 
7609 Oell44 012716 OOO144 MOV #10100, (SP) ‘STALL FOR ABOUT 1 MILLISECOND 
7610 Cells0 706 3$ TST RO ‘NOP TO KILL TIME 
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OZRPKB.P STALL - USED TO STALL AFTER A ORIVE FUNCTION IS COMPLETE 


Soraee 200000 Be | Og + ORT Te MORE COUNTS NEEDED 


900765 BR es 
Oe 4S: CMP (SP)+, (SP)+ ;CLEAN OFF THE STACK 
RTS RO ;EXIT 


ISErTe Twone = STALL FOR Re ETMEEN SEEKS IN TESTS 10 = 12 
FOR ef Fe ee rio mn oneBn ein * i 
HE SEEK He 


STALL 
ue ie! asl 2a Bett ae en IN THe fe uetoon iss 


aN IME’ 


JSR 
RETURN 


gtolatatatet 
WD IMU £ 


R% 


HEET THE PROCESSOR PRIGATIY 105° 


HE OLD Fe OnE SES TOR AO 
STP "EW Vee TOR coDRe 


SSS 
Bee 


25 
g 
i 


rw 

~~ 

rT 
: 
=" 


2S 
J 


SSOR STHTUS 


RO Broruaurarurs 
: - 


pb 2 fat bh bs f= BO pe pee 


veo 

e 

: 

B Ee 
saaghagaaag 


5 SEE SE Sede BE bg 8 9 0 8 a A a EE 
“SBTTL VERIFY - VALIDATE HEADER ON IMPLIED SEEKS 
s HROUTINE TO SOFTWARE COMPARE HEADER ON IMPLIED SEEKS 


RO, J8VERIFY 
POINTER ADDRESS OF DPB+10 (SECTOR NUMBER) 


7622 
7be3 
7624 
7625 
7626 
7627 
7628 
7629 
7630 
7631 
fess 
7634 
7635 
7636 
7637 
7638 
7639 
7646 
7641 


ta SAVE Ri 
+ RI : GET SS OF DPB+10 

22, SUBUFFER :STRIP T BIT FROM CYLINDER NUMBER 
seaurr eh, 2(Ri) sCYLT NUMBER OK 


:NO- 
SSOUFFER+2, (RL) 3YES--HOlW ABOUT TRACK/SECTOR? 


Se cren oun Wee RE THE CTED AND THE 
QUBUFFERS3, J8TRK. rb: sRECIEVED CYLINDER, TRACK, 
C.RO ;AND SECTOR 


; ON ERROR 
SAEeE tT tes PC+4 
: RROR 


sevens, Ro orl EXIT 


SERRRERRRERRERRRR 
Sa SBR EVI ERIN? 
eee “ai 
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TE HEADER ON IMPLIED SEEKS 


3s: MOV (SP)+,Ri ;RESTORE R1 
RTS RO EXIT 


S 


5 ARE EEE 88 9 A SE A A a Ek 
. SBT - IN ZE THE ORIVE FOR THE TIMING TESTS 
;*THIS ROUTINE WILL ORM_A NIT. FOLLOWED BY 

;#A Tee Ht TE” ON THE DRIVE UNDER 

;*#NOTE: THIS ROUTINE DESTROYS Rl AND 


;00_ A MASSBUS INIT. AND RECAL 
;RETURN HERE IF NO ERROR 
;RETURN HERE ON ERROR 

; INCASE OF ERROR (TYPTIM) 


agua ¢ 
: 


aot 
~ 


atotatatatat 
Jad zd 


a3 
Pt ttat to 22 
as gs 


mane 
8 | eS 


8 
; 
ar By 
~ 
o 


S 


AS 1ARGRO 
2S 


Beene 


Qr--OO- 
— 


ad 
3s 


iS 
Le 


ot 
8 
4 


nui 
bee 
Pca 
3555 
oP el 


: 
Zagat 
23° 


as 


78 
7679 
7680 
7681 
7682 
7683 
7684 
7685 
7686 
7697 
7688 
7689 
7690 
reek 
fees 
76H 

(1) 
(1) 
(1) 
(1) 
(i) 
(1) 
(1) 
(1) 
(1) 
(1) 
7695 
7696 
7697 
7698 
7699 
00 


POPUP FO FUFOFUFOFU Foro FOFOFU FO FOFGrU ro fU fo FOFG Ufo faforaru furore 


BERENS 


es: 
3$: 
4g 


JS 


5 Meg AE SEE AE gE aE bg 0 aA AE EAE AE ARE RE RR EER 
- SBTTL TI_= RETURN FROM IN T 

;#THIS IS AN RTI WHICH IS USED BY TIMING TESTS 

DORTI: RTI ;RETURN FROM INTERRUPT 


5 Me 8 AEE 4898 Me 4a A A a a A ea EE 
~SBTTL STRTMR - START THE TIMERS 


sanasae 
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DZRPKB.P11 STRTMR - START THE TIMERS 


: 


s THIS ROUTINE WILL INITIALIZE THE TIMERS 
HCALL BY THE “TIMING ROUTI ES 


PC, d#STRTMR 


;SAVE_RO-RS 

:START AT ey ¢ (MINIMUM) 
:STOP AT TIM. 

: CLEAR 


RARRARRARS. 
DONIMUN£UWITMU-O 


RR: 


sane 
fOFUFoFurUrUFoFororore 


SR IeREROR SS 


MOV 
RESREG 
RTS 
5 AR SR SEEGER SESE EE EE A EEE EE EA EE EEE 
OUNT = THIS ROUTINE COUNTS Ne ELAPSED TIME 
NE WILL ADD THE Sear T TIME TO THE AVERAGE COUNTER AND 
MINIMUM AND MAXIMUM TIMES. 
janNOTE THIS ROLTINE DESTROYS Re 


MOV ;PARAMETER POINTER 
RS ;FLAG=0=COUNT UP 
;FLAG=-1=COUNT DOWN 


a 
2 


& 
ate 
aa 


;PICKUP THE “UP” POINTER 
sUSE IT? 

Mars tae 

:NO--PICKUP “DOWN” POINTER 
sLESS THAN PREVIOUS LOW? 

i ES VE IT 

i THE LOW LIMIT? 
:NO--BRANCH 

3 YES~—COUNT 1, 

: THE POINTER 

;GREA THAN Oaey ous HIGH? 
YE --SAVE IT 

i TER THAN THE HIGH LIMIT? 
; YES--COUNT 

; ROVANCE Tep POINTER 

3ADD THIS COUNT TO THE TOTAL 


;COUNT THIS READING 
sSUFFERS 8410, >, OaTIM.PT psAve HIS COUNT? 


6 ;NO-- 
aPKC, aTIM.PT ;YES--WELL SAVE IT THEN 


or £r 
8 
-_ 
= 
AY 


oouw 
eee 
[= ] 
: 


as 


cg a a 


: 


% 


i 
pa omeasneeomece : 


a 
Saaess 


ed Sd ol @ ) 


at 


7724 
7725 
7726 
7728 
7729 
7730 
7731 
7732 
7733 
7734 
7735 
773 
7737 
7738 
7733 
7740 
7741 
7742 
7743 
7744 
7745 
7746 
7747 
7748 
7749 
7750 
7751 
7752 
7753 
7754 
7755 
7756 
7758 
7759 
7760 
7761 
7762 


SERRRERRRRRRERRRERRRERRS 


NESSRReS! PROROOR ERGO 


SPgaRE 
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MACY11 27(663) 
COUNTS THE ELAPSED TIME 


COUNT - THIS ROUTINE 


MAINDEC-11-OZRPK-B “MECHANICAL AND READ/WRITE TEST™ 
7763 021 062 ooo0de 001314 
7764 Bip 3 B68287 6S: 


OZRPKB. P11 


;ADVANCE THE POINTER 


; RETURN 


| etait rafe 


RNS 


,11, AND 12. 


LAG THE BAD TIMES. 


NIMUM 
| 
F 


i ? 
iy 


Tins For Tes 
TIMES TO 
E AND IF 


: 
* 
e 
: 
* 
Pa 
= 
= 
} 
= 
: 
x 
= 
: 
ae 
Ps 
wee 
= 
4 
Pa 
* 
: 
x 
* 


-SBTTL TYPTIM - TYPE TIMES 
ANO 

: iT WILL a CHECK 

; Y ARE WITHIN TOL 


;#THIS ROUTINE IS 


5 area 
# 


;*#NOTE: THIS ROUTINE DESTROYS Re-RS 


THE TIMES 


TO THE PROPER TABLE 


GO 
;POI 


RO, deTYPTIM 


Paatte pines GOES HERE 


ROUNTS. OCCUR? 


BELOW THE LOW LIMIT 


;ANY SEEKS ABOVE THE HIGH LIMIT 


Seusetestusee SCPE, 


z % 
¥ re 


— er er er BB 


iz eS tretss 


Ee 


7 3 Bonn Bos 
Pes 


euros a 


Qnd000— -_ 5538 


Ser 


REREERREERERERRERERERERE eR ERE RRR oR EREB>oRR REE“ Re 
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OZRPKB.P11 TYPTIM - TYPE TIMES 


001421 BEQ 
TYPE 
JSR 


a 


SENS St 
BNSFREHFES SS PS 


tad 
o 


EERE 


b= b= 6 b= bb bb Pb Pr pe fh 


SiGsaa—-~dad——aded 
OONPNL ~~ WII ~~ OE 


8 
RS 


31S THE REMAINDER OVER HALF? 
;NOQ--BRANCH 

; YES--ROUND UP 

3 CHRNGE, TO ne sthos 

; RiITHOUT 


~2(R4) ON THE STACK 


a 
& 


8 
q 


comegce 
CoB S82sB882s5o Seess 
ighetiijane Conary? 
Bese SPReSSSs seuss 


6$: 
7$: 
OTT IKCIRK « INCRERENT TRA MEER nee 
;#THIS eet a WILL INCREMENT THE TRACK 
*#NUMBER (Re) BY THE AMOUNT SPECIFIED BY ITIS. 
; TRACK NUMBER GREATER THAN LTIS 
* TRACK NUMBER INCREMENTED 
;LAST ren COMPLETED? 


> YES--EXIT 
ee R2 *NO TE 
Re, asi TiS jC 19 BIG? 


AS ris ne m3 TRACK TO LAST TRACK 
(RO)+ i, yu FOR RETURN 2 


768 
7830 
7831 
7822 
7833 
7834 
7835 
7836 
7837 
7838 
7339 
7840 
7841 
7842 
7843 
7844 
7845 
7846 
7847 
Tou 
7850 


5 EHRAELLELES LAS LELRA REAR LALA ELELLRLAALERAA EAE ARE LAER RELA E REEL LER 
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OZRPKB.P11 INCCYL - INCRMENT CYLINDER NUMBER 


iefads. cUpeoutave TCE TncReRENY THe CYC INOER 
ecA 


THE AMOUNT SPECIFIED BY Ils. 


dee RO, A#INCCYL 
TURN ;CYLINDER NUMBER GREATER THAN LCIS 
RETURNe ;CYLINDER NUMBER INCREMENTED 


x 
e8318 20197 : By. ,aeLcis bee! £YyINOER COMPLETED? 
022324 063701 gercis RI :NO--UPDATE CYLINDER 
1 aiCis sCYLI TO BIG? 
013703 MOV peye *YES--SET CYLINDER TO LAST CYLINDER 

Dee 4e 005720 : TST (RO)+ :AOTUST FOR RETURN 2 

S44 : RO ;RET 
iSBTTL FILBUF FILL BUFFER WITH pooRESS Daa 
HTS SUBROUTINE IS use. 5 Fit Tee Gata ER 
jRAITH ADD ADDRESSES FROM O TO 21 WITH EACH SS 

AL 


: STORED IN 256 CONSECUTIVE LOCATIONS 


we 


cone 


; RERLAALSALAL SELLER SELSLELAE SELLE EEL SARE LE LALLA E ALLS ARLE RR ELE 


“SBTTL CLRBUF - CLEAR Br Te 
ers eg INE WILL CLEAR THE BUFFER BY 
suger NG EACH WORD TO "177400". 


: JSR meats 
FI RETURN 


CLRBUF : RO 1 
8177400,R 


F iF 
BEUFFER? <S12. #22. 


fee 
7857 
7858 
P60 
7861 
7862 
Feed 
7865 
far 
7871 
7872 
7873 
7874 
7875 
7876 
7877 
7879 
7880 
7881 
7882 
7883 
eS 
7888 
7889 
7890 
7891 
7892 
7893 
783 
78% 
7897 
7898 
7899 
7300 
7901 
7302 
7303 
7304 
7905 
rap? 


Q000 


2 
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OZRPKB.P RBUF - CLEAR BUFFE 


A: 


C22436 -- 5628 
D22e440 253,...5629 
eS5,...5631 

. 5632 


3333.33.33. .3 
WONOU£CWMUHO 
geeses p 
BBuB22P2z 


CTOR DATA 

CHECK THE ag BUFFER 
;*#FOR ADDRESSES 0 21 WITH EACH ADDRESS 
; #BE ING STORED IN 256 CONSECUTIVE LOCATIONS 


JSR RO, d#CKSCTR 
RETURN 


RO,QNSAVRIS  ;SAVE RI-RS 
#4; SP - RESERVE TEMP. S\ORAGE AREA 
tFIRST SECTOR 
SFIRST ADDRESS OF DATA BUFFER 
;NO_ ERRORS 
SLOOP COUNT (164162256) 
1ST ROORESS OF THIS SECTORS DATA 


ae 


B 


7920 
7921 
7322 
7923 
7924 
73925 
7926 
7927 
7928 
73929 
7330 
7931 
7932 
7933 
7334 
73935 
73938 


siataReeorely 


R1, (R3)+ 
7§ 

RI, (R3)+ 
7§ 

RI, (R3)+ 
R1, (R34 
7$ 

Ri, (R3)+ 
Ri, (R3)+ 
RI, (R3)+ 


7$ 
R1, (R3)+ 


RORSRSRERERERSEBEBESESRBR 
SRUENENENENE 


8 
8 


§ a 
SALASRSASATASASASASRSASASAS asearey 


Fon an ham, tm ae ae at a ee ee ee ee ee ee a ee ee ee et 
= = bb & = 0 = = bh oO bb bb * = eh he ee 
ee et et Ne et et et et Ne et eet et Se ee et Se et eet ee ee ee ee ee ee 


8 
rT 
w 
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DZRPKB.P11 CKSCTR - CHECK SECTOR DATA 


001 


a 
-—- es 
"a 7 


7$ 

a. (R3)+ 
R1, (R3)+ 
7$ 

Re 

es 

#t0S1e, (SP) 
Rl 


PPR LN LO 
po oh bee 
a ee eee 

ewewe we 


; IF 
NISHED WITH THIS SECTORS DATA? 


5 SOs OF NEXT SECTOR 
SECTOR 


mie te eee | 


=3 
— 
aes 


a 

B 
a3 
a2 


Biss 
— 
a ae 
g & 
- 
zg 


B35 


TT 


A MULTIPLE OF 16 


maser 
= 
B 
g 


S=eo- t 


KOS ae TO 9§ Oe EN ERROR 
t REPORT T THE ERROR 
SET ERROR SWITCH 


z 899293 


B11$,SESCAPE ; ESCARE ng 11$ ON ERROR 
22 sREBOR ERROR 

8SWO9, J#SWR ;LOOP ON TERROR? 

#SWO1, J8SWR STOP DATA COMPARE? 

QUERR. CT, Q¥SERFLG “MAX. ERRORS? 

¥SWOS, J¥SWR “REPORT ONLY IST ERROR PER SECTOR? 
3. : YES--BRANCH 


be page ay a+ + carrera cemmaata 
orth aniine une BUFFER TO DATA PATTERN 
THIS, ROU TINE WILL MOVE THE 16 S al THE 

t SDESIRED PATTERN f INTO THE DATA 


73939 
7940 
ra 
734, 
7344 
7345 
7346 
7347 
7348 
7349 
7350 
7ae2 
7953 
7954 
7956 
7957 
7358 
7359 
7960 
7361 
7962 
7963 
7964 
7965 
7966 
7967 
7968 
8 
7971 
(1) 
7972 
7973 
7974 
7978 
7976 
7977 
7978 
7979 
7380 
7381 
7982 
7983 
7984 
7985 
7986 


















on 
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i SETBUF - SET BUFFER TO DATA PATTERN 


j 







7987 seCLL 
7388 38 MOV #NX, RO sPATTERN NUMBER INDEX TO RO 
7989 v® ISR PC, daSETBUF 
cast $2303 C0403? 024334 S TBuF: JSR RO, d8SAVRIS ;SAVE RI-RS 
7982 O2:042 912751 O405e4 MOV  sBUFFER, RI sFIRST ADDRESS 
393 Ce3046 O13 003524 MOV aT Re ; WORD Sout 
79%4 (23052 13685 og2460 S$: MOV PAT.PT(RO) RS  ;PICK TTERN POINTER 
7997 £23056 C1232) MOV (R3)+, (R1)4 sMOVE WORD 1 INTO DATA SUFFE 
(1) 023060 i232 MOV (R3)+, (R1)+ “MOVE WORD g INTO DATA BUFFER 
(1) 023062 912321 MOV (R3)+, (RL) : WORD 3 INTO DATA BUFFER 
{1) 23084 912331 (R3)+, (R1)+ : MO WORD 4 INTC bare BUFFER 
i43, uUdsUbb Gidiel (R3)4+, (R1)+ MO S INTO DATA BUFFER 
(1) 023070 012321 MOV (R3)4, (R1)+ smOVE WORD : INTO DA’R BUFFER 
(1) 023072 Glezel MOV (R3)+, (R14 *MOVE WORD 7 INTO DHTA BUFFER 
{1} 023074 012321 (R3)+, (R1)+ sMOVE WORD 8 INTO DATA BUFFER 
(1) 023078 012321 MOV (R34, (R1)+ :MOVE WORD 9 INTO DATA BUFFER 
(1) 023100 912321 MOV (R34) (R1)+ : WORD 10 INTO DATA 
(1) G23102 012321 MOV (R3)+; (RL)+ inOVE WORD 11 INTO DATA BUFFER 
(1) 23104 0123-1 MOV (R34; (R1)+ : MOVE WORD l2 INTO DATA BUFFER 
(1) 023106 012321 MOV (R3)+, (R1)+ - MOVE 13 INTO DATA BUFFER 
(1) 023110 Ole321 MOV (Rade, (RL) + : WORD 14 INTO DATA BUFFER 
(1) G23i12 O12321 MOV (R3)4, (RI)+ ‘MOVE WORD 1S INTO DATA BUFFER 
(1) 23114 912321 MOV (R3)4; (R1)+ ;MOVE WORD 16 INTO DATA SUFFER 
7998 023116 62702 oD0020 ADD #tD16,Re : DONE? 
7999 023122 901353 BNE 1S ;NO- CH 
8900 923124 004037 034354 JSR RO, deGETRIS * YES--RESTORE R1-RS 
8001 923130 500297 RTS PC + RETURN 
8003 5 SESERL REA RELA EASE ERE E EARLE EERE EERE EEE EERE EEE EER ES 
8004 'SBTTL DATCMP - DATA COMPARE 
B00S :#THIS ROUTINE COMPARES A 16 WORD DATA PATTERN 
8006 ;#AGAINST THE DATA BUFFER 
8907 + #CALL 
8309 :# MOV 8NX.RO ;PATTERN NUMBER INDEX TO RO 
g909 :# JSR PC, JaDATCMP 
Bit sili race 
8012 923132 004037 034334 DATCMP: JSR RO, 38SAVROS ;SAVE_RO-RS 
8013 Ge3136 012701 o40S24 MOV sBUFFER,R1 sFIRST ADORESS OF BUFFER 
8014 923142 013702 MOV J8OTADPA+4,R2  :WORD COUNT 
8015 O23146 OOSO46 CLR -(SP) >NO_ERROR 
8016 023150 916093 o02400 1$: MOV PAT.PT(RO),R3 ;PATTERN POINTER 
8017 023154 es: 
8025 O23iS4 162321 sus (R3)4, (RLI+ ;CHECK WORD } 
(1) 923156 OO104S BNE :BRANCH IF DiFFERENT 
(1) 023160 16232) Sus (3), (RL :CHECK WORD 2 
(1) 162 001043 BNE 4 >BRANCH IF DIFFERENT 
(1) O23164 162321 sus (R3)+, (RL)+ ;CHECK WORD 3 
(13 023166 OC1041 BNE 43 :BRANCH IF DIFFERENT 
(1) 023170 162321 Sue (R3)+, (R1)+ sCHECK WORD 4 
‘1) 023172 301037 BNE “BRANCH IF DIFFERENT 
(1) $3174 162321 sua (R3)4, (RL}+ “CHECK WORD 5 
‘13 623176 001035 BNE 4% *BRANCH IF DIFFERENT 








rnin 


lA eee MECHANICAL AND READ/WRITE TEST” MACYI1 27(663) @23-JAN-76 10:16 PAGE 43-87 SEG 0118 


DRTCNP - DATA COMPARE 
(R3)+, (RL)+ ; CHECK wero 
4$ BRANCH F DIFFERENT 
;CHECK WORD 7 


(R3)+, (RL) ; 

sBRANCH IF DIFFERENT 
(R3)4+, (R1)+ ;CHECK WORD 4 
4g sBRANCH IF DIFFERENT 
(33), (Ride : 


(R304, (RLI¢ 
(53}4, (Ris 


(R3)+, (RL)+ : } 
fSaecre 8 eck WO 
. MIF *BRANCH IF DIEFERENT 
(R3)+, (FL) + CHECK WORD 14 

4 *BRANCH IF DIFFERENT 
(R3)+, (RL.+ CHECK WORD 15 

4 “BRANCH IF DIFFERENT 
(R3)+, (RL) ¢ CHECK WORD 16 

4 ‘BRANCH IF DIFFERENT 
#1016,Re “DONE ? 


(SP)+ iN: FRAT AN UP STACK 
RO, a4GE "hus I RESTORE ROR 
FORM THE WORD NUMBER 


;WORD NUMBER 
;FORM RODRESS TO CONTINUE FROM 


% 
Ra 


SRE HES ae 


as 
SHORE 


REReRoR 


et et ee eet ee et et ee ee at et et et eet ea ee ee a 8 es 
8 om 
= — fu 


ena ton toe toe Sot io to tok tot iat tab fet 


MOV 
SUB 
006204 ASR 
MOV 
SUB 
ASL 


. 
BS 


OL 
ye 
3 


s ADDRESS 
PRECONSTRUCT THE BAD WORD 
ISAVE THE ERROR INFORMATION 
1ST DATA COMPARE. ERROR? 

+12, 98CYL.0S ;CYLINOER 

#11 D8TRK.DS ; TRACK 

10° 98SEC 


# 


agence 
Redes 


pee Meas 
SgSgSSSSERIEES 
op ©0300 — — — 


i 
q 
23 agzs 


—-O 
~~ 
8 


g23422 001200 ;;ESCAPE 70 7$ ON ERROR 
"REPORT THE ERROR 
ocooo2 177570 7S: STOP DATA COMPARE? 


Be 
tu 
“ 
Gjr= 
N& 
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OZRPKB.P OMPARE 


DATCMP - DATA C 
g0S2 023430 001314 BNE YES--EXIT 
8053 0234 Toas43 001372 001103 CMPB eRe. CT, aasereib hax ERRORS? 
8054 623449 101004 BHI 8$ hae 
8055 Desde 013766 091234 os00016 8BYPASS, 16(SP)  YES--ERROR EXIT 
8056 O34 
B05? 023452 OO0115 Qs: IMP (RS) :NO--CONTINUE AT NEXT WORD 
80593 aT FIURAN «FILL DATA BUFFER WITH RANDOM PATTERN 
8060 TTL FILRAN © F ILL DA TA BUF PATTERN 
806 1 STH1S OU ROU parE fhe ies bata BUFR #22 WORDS) WITH 
8062 WO WORDS VERY 256 WILL 
8063 RUMBER GENERATOR FOR THE 
8064 se 
BO6S : #NOTE: THs ROUTINE DESTROYS Ri AND Re 
bbb *#CALL 
806 i JSR RO, Jef ILRAN 
oe 3% RETURN 
Bm83 ge34sy 012701 o40s24 FILRAN: MOV =» #BUFFER,R1 
8071 023460 Ole702 o00026 MOV 8tD22,Re 
8072 023464 004037 023674 1S: JSR ——-RO, SURANPAT 
8073 23470 905302 DEC RE 
8074 Oe3472 BGT 1§ 
8975 74 900200 RTS RO 
8077 eETTL RACK « RYDOH PATIERN BUFFER GECK ee 
an Hue ROUT Ne ate TWO meter cHECK Me 
8080 “HBeS e FL RANDOM PATTERN. THEN 
808i tte READ EOD BUFFER 15 RORERRED TO. TH TO THE PATTERN GENERATED. 
g082 #NOTE: THIS ROUTINE DESTROYS R1-R4 
8083 *#CALL 
3084 i JSR RO, J8RANCK 
8085 ie RETURN 
e087 023476 O137% 017312 RANCK: MOV aSHINUN, - (SP) ;SAVE THE PRESENT RANDOM NUMBER 
Qe2sG2e 013746 017314 MOV -(§P) 
8089 023506 012702 0o4152e4 MOV SSLFFERS ta Re ;READ BU BUFFER A ADDRESS 
8090 Oe35le 16701 042524 MOV ER+1024 rR RON RN ADORE 
8091 023516 0101 R1.R3 inp tt aaron R3 FOR LATER USE 
8092 023520 011237 017314 MOV (RO). aeSLONUM t PRIME THE RANDOM NUMBER GENERATOR 
80S3 023524 0162037 000002 017312 MOV a(R} a8SHINUM 
8094 GezSae 004037 023674 JSR RO, J@RANPAT GENERATE A PATTERN 
B09S 022536 012637 01731 (SP}+,98SLONUM RESTORE PRE RANDOM NUMBER 
809% Ge3542 012637 017312 (5P)+: JeSHINUM 
8097 023546 OCSO46 CLR -(SP) NO ERRORS 
8998 023550 162322 1S: Sua (R3)+, (R2)+ ARE THESE TWO WORDS DIFFERENT? 
8099 023552 001441 BEQ 45. : 
8100 023554 012737 023626 001200 MOV SESCAPE $ AES 3$ ON ERROR 
8101 Oe3562 064342 ADD -(R3), -(Re) >RECREA BAD WORD 
810 010237 o0112e2 MOV Re, a8$8000R “ADDRESS OF BAD DATA 
8103 023570 rice 001120 MOV R3.a ADDRESS OF 6000 DATA 
8104 023574 012237 OO011 MOV (R2)+,a8SBDDAT ;BAD DATA 
8105 012337 001124 MOV (R3)+,a8SGDDAT ;GCOD DATA 
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RANCK - RANDOM PATTERN BUFFER CHECK 


;FORM WORD NUMSER (1 TO 256) 
041524 


BSS 


REUFFERSSI2. RY’ 
RY 


~ 
w 
ae 


;FIRST ERROR 
;NO--BRANCH 
sYES-—SET ERROR SWITCH 


as 
=f 
om 


% 


BOR 
53 

Be ba bee 
ou 


os) 


001000 177570 
001372 001103 
oo0gde 177570 


fu 
223 
33 


5s * YES--BRANCH 
SHER. CT, asSERFLE -MAX. ERRORS OCCURRED? 


it §p COMPARING? 
S--BRANCH 

FALL DATA BEEN COMPARED? 

:NO--BRANCH 


2 
Res 


guam 


4§: 
ss: 


= hs 


6$: 
TTT RYOAT © RANDON PATIERN GENERATOR nena 


“SBTTL RANPAT - RANDOM PA 
ieTuls ROUTINE FILLS A eee, WORD Be ane ante A_RANDOM 
a IRST TWO WORDS ARE THE BASE 


;ADDRESS OF THE BUFFER 


;SAVE Re 
;GENERATE 256 WORDS 


Be 


FSRBYRREERESRBLRRPGROR SSG oSSIR e 
22 


tO erin 2 tolor do Nn £eoro 


a 


: NUMBER 
sPUT LOW WORD IN BUFFER 
;PUT HIGH WORD IN BUFFER 


eS Se ee 
oo 
a4 
3 od 


NO ESRANCH 
i RESTORE Re 
sEXIT 


Ss 


'SBTTL  RANEOR ~ RENOOM AQORESS GENERATORS 8 


"SBTTL RANADR - RANDOM 
:aTHIS ROUTINE GENERA RATES CYL AND SECTOR 

S AND SAVES THEN IN THE hPa NOE HOPES 10 AND DTADPB+12). 
jaNOTES HIS ROUTINE DESTROYS RI-R3 


JSR RO, d#RANADR 
RETURN 


PC, dsSRAND GENERATE A RANDOM 
3aSLONUM, RI “FORM SECTOR IN RI 
MOVE § @#SLONUMS1,R2 :FORM TRACK IN Re 


h~ bs b= bs 0 = b= = be hw he 


uy 
wo 
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OZRPKB.PL1 RANADR - RANDOM ADDRESS GENERATOR 


023744 017312 MOV OSSHINUM, R3 + RSURE CYLINDER iN R3 


re Ri HE SECTOR iS BETWEEN G AND 21 


= 
a3 


000026 CMPB 
BGT 
CLC 


ie 


eee 
t— 


rere ; INSURE THE TRACK IS BETWEEN 0 AND 18 
CNPB 
BGT 
CLC 


; INSURE THE CYLINDER IS BETWEEN FC AND LC 


Lae 


eee: 


; 


BBSRRLGCLSZEVFRZGV—BSISIISKAZINASSHEGEHRLOHHS 
8 
2 
a 
3 


= 6 B= 0 8 0 8 bb Pb 2 Ps = = Ob 0 0 0 8 bb bb 0 0 be 0 0 0 = om ee 


;SAVE SECTOR ADDRESS 
;SAVE TRACK ADDRES 
dsOTAOPB+12 s SAVE CYLINDER ADDRESS 


| syrerenreapeeeey 


BONKsOoRSsa B 


zs 


een GETSUR © GET THE CONTROL GUTCH GeTTINcs 


-SBTTL 
pRTHT® ROUTING I IS SiSeD TO INPUT INPUT T 
F _SWR<O7>=1 THE Present SETTING WILL BE TYPED AND THE NEW 
AcET TING IS READ AND STORED. 
ii NOTE: THIS ROUTINE DESTROYS R3 AND RY 
; 


3% JSR PC, d8GETSUR 
% RETURN ;(C.SWRI=DESIRED CONTROL SWITCHES 


000200 177570 GETSWR: BIT #SW07, d#SWR ;READ CONTROL SWITCHES? 
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OZRPKB.P GETSWR - GET THE CONTROL SWITCH SETTINGS 


024130 free Sy i Type estlz STR 
_ ASCIZ 


she BF ASCIZ a 1s» <1ar/stt's SUR .OP) =0 
034436 I$: MOV —-&NSG.CS,R9. «ss “CONTROL 
004037 Wee a3 SR on CENTRO SUTTON Reg 
ea tf $ BORTOO 
001212 i R4,a8C. SHR : DOUBLE PERIOO-SAVE NEW SWITCH SETTING 
2s: PC LS FROM CALL 


gs oo pa sg es ete es es er 
- SBTTL GETADR - S ADDRESS AND VECTOR ADDRESS 
eTHS pOUTIRE. 15. IS “seb. ee 


BUS ADDRESS 
3 #OF THE RH} A RE BN AD THE PROPER VALUE. 
;#IT WILL AL ADDRESS ROM THE TTY IF 


; I 
uae Bs nis ROUTINE DESTROYS RO-RY 
; #CALL 


Bs 


SREIEIET B93 = 


HII TEIES bes 


JSR 
RETURN 


put FROM TTY REQUESTED? 


*YES--CLEAR THE REQUEST FLAG 
“FIRST ADORESS 
= "RHCS I=" 


z 


ues 


sue 
Fr 4 


: TST 
BEQ 
Rov 
MOV 
ie 
BR 
BR 
MOV 
MOV 
MOV 
JSR 
BR 
ER 
BR 
MOV 
MOV 
MOV 
ASL. 
ASL 
ASL 
SWAB 
JSR 
BR 
BR 
BR 





H10 


SEQ 0123 


ui 2 
as eee 
a : - # = 
s & ce Fann ia petite “ : me Ge e “ ees 
FSB % Keene & ee se is es eee lays” 
Go RlscBopeeeelsesetee ify Ey cree Cnyeregeg! 
Bot Se ee ee eee 
3 S tout “ 
ee i) ee af 
2 88 Saiste-- G: Gea ite 8 exy , 2% 3 
a sncestGeeteee, oo g2ah & G23 Gof Bg 
: ioe Eee x 
E EnEaDREDEEBESSEDREDGSSE HGcee? satay  afleksatennes 
ww zeae § 
a2 sg ae : SS 
Be : 
g : 


2 


Fs eee —— sonar 
| — 
bg eRe Rai SISTEM STS hetatcttototat ehMac tata tote pst ste 
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CZRPKB.P11 - ROUTINE TO GET A NUMBER 


3$: 
026710 


a3 


Bs 
z 


anne | 2 


fh fs be fb * B= be be be bm ee ew pe 
ODONOUMN Lew ww~W~ Ww 
R 
~ 
— 


ait nt ot ot eat a 


RR 
SasngcRe 
a eg 
agner agony 
++ Fa 


es 
es 


;COMMA--POSITION THE 
;NUMBER IN CASE IT 
31S THE PRIORITY LEVEL 


f 
BEReaaoty 


Fett 4 


;EXIT 

5 SEAR ARSE EEE E960 EE 
+ MS GT.PRM - GET PARAMETERS 

aTHI RATING JS USED TO CHANGE OR MODIFY 


; T Tee. IT GIVES THE OPERATOR 
;#THE CAPABILITY CIFYING WHICH DRIVES TO TEST, WHICH 
;#TESTS TO RUN AND HOW MANY TIMES TO 


8332 
8333 
8334 
8335 
8336 
8337 
8338 
8339 
8340 
8341 
8342 
8343 
8344 
8345 


<15>«12>/0R 


ne te 
aes 
— sie 
= 
== 
er |= 3 
ee 
zB 
i oom | 
Ne 


T 
ADDRESS OF ASCIZ STRING 
CHARACTER 


Bcocece gee 


RaIIIaIgss 
DpoDD 
eer eras 


De ed ed el oe 


‘oiGIT 0-9 


FD .nenenenewen 


Ri 
MOV 87,R2 ;UPPER LIMIT OF INPUT 


@ 
oo 
i 
~ 
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DZRPKB. P11 cf. PRN = GET PARAMETERS 

(1) 004037 026530 J RO, deCK.DIG sCHECK THE DIGIT(S) 

(1) Pedead 024554 tPF oe HYULEoAL ineut 

(1) Qe4e4¥2 Oe4s54 $T.PRI if LARGE 

(1) Oe4644 OeHoSe 33 TERMINATED WITH A,” 

(1) Oo4646 4 TERMINATED WITH A ”.” 

(1) Oe%6S0 024672 4§ ; TERNINATED WITH A ”..” 
8351 Oox6Se 156237 027154 001222 3$: B1s8 ATABIT(R2),ORVSEL <SET THE DRIVE SELECTED BIT 
8352 Oe4660 1 TSTB Os = R11) WAS THE LINE INATED? 
8353 Oe%662 001 BNE :NO-GET DRIVE 
8354 O0e4664 001224 CLR aeTSTNMS *DESELECT ALL TESTS 
Sse rage eed 027154 001222 4S BF se aTABIT RE) pavset “eet TE SEE EeteD DRIVE BITS 
ete 024 004037 034360 GT.PRe: JSR RO, J8GETROS “RESTORE RO RE 

8358 024704 000207 RTS PC EXIT 

B38 024706 GTTST1: 

(1) 24706 104400 024714 TYPE +4 : TYPE ASCIZ STRING 

(1) Oe%712 000403 BR 64 :GET OVER THE ASCIZ 

(1) 3;.ASCIZ /TEST=/ 

(1) 024722 64S: 

8361 O24722 104414 ROLIN ;READ AN ASCIZ STRING 
8362 O0e4724 012601 MOV (SP)+,R1 *POINTER TO RI 

8363 024726 122711 O000S6 CMPB sé”. (RIL) “DOUBLE PERIOD? 

8364 O24732 001007 BNE 1$ :NO--BRANCH 

83685 024734 122761 000056 O00001 CMPB sw”. (RL) 

8366 Oex742 001003 BNE % 

8367 O24744 105761 o0000e2 TSTB = BRI) "CR"? 

B68 024750 001 BEQ GT.PRe * YES--EXIT 

8369 024752 001224 1S: CLR TSTNMS °NO TEST SELECTED 

8370 024756 005003 CLR R3 NO TEST TO BE OPENED 
8371 024760 O05004 GTTST2: CLR RY *NO TEST BITS SET 

8372 Oe476e elle? 000123 CHPB s«(R1), 8S : TESTS? 

8373 Oe4766 001003 BNE 1§ ‘NO--BRANCH 

8374 024770 012704 000177 MOV $177 *YES--SELECT TESTS 0-6 
8375 Oe4774 O00S12 eR 6TTst3 

8376 eu776 eile? 000124 1S: CPB s«(RI1), aT ALL TIMING TESTS? 
8377 001 BNE : 

8378 O25004 012704 003600 MOV *YES--SELECT TESTS 7-12 
8379 025010 OO0S04 BR GTTST3 

8380 025012 i2il27 OOdI01 2s: CMPB sé RD, 8A ;ALL ADDRESSING TESTS? 
8381 025016 001003 BNE :NC--BRANCH 

8282 025020 012704 014000 MOV 14000, *YES--SELECT TESTS 13 8 14 
5383 025024 000476 BR GTTST3 

025026 121127 000104 38: CMPB OS s«(R1}, 8°D ;DATA TEST? 

8385 Oe5032e 001003 BNE :NO--BRANCH 

8386 025034 012704 o20000 MOV é *YES--SELECT TEST 15 
8387 025040 000470 BR GTTST3 

8388 O25042 i2ll2e7 000105 4g: CMPB «(RD BE EXERCISER TEST? 

8389 O2S046 O01 BNE § *NO--BRANCH 

8390 025050 012704 o40000 MOV JR4 *YES--SELECT TEST 16 
8391 025054 O0046e2 BR GTTST 

8392 025056 904037 026400 S$: JSR RO, 38CK. OCT ;OCTAL DIGIT? 

8393 025062 000460 BR GTtST : NO=-BRANCH 

8394 025064 010205 MOV Re, *YES--SAVE IT 


ee oe | 


 ————eeeeeEEeEEEEEEEEEOEOEOEOEOEOEeEeEeEeeee 
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inva TQ xt CHARACTER 
;OCTAL DIGIT 


MOVE TO NEXT CHARACTER 
;SCALE HIGH DIGIT 


3 
% 
é 


ett heanty” f ig a AND READ/WRITE TEST” 
DZRPKB.P - GET PARAMETERS 


g 
8 


ag 

2 
. 
= 
z 
8S 


De 
7S 


;COMBINE HIGH & LOW DIGITS 
;LEGAL TEST NUMBER? 
:NO--BRANCH 


PATA 


o 
= 


I 


; SELECT TEST 
sTES STRING? 


veer “MOVE TO NEXT CHARACTER 
ite AL DIGIT? 
~BRANCH 


;NO== 
SYES--SAVE IT 
ZMOVE TO NEXT 
SOCTAL OIGIT? 


{NO--BRANCH 
;YES--MOVE TO NEXT CHARACTER 
SSCALE HIGH DIGIT 


~ 
rm 
~~“ 
~ 
8 


2232 
~ 4 
m~w 


— 
we) 
4 
— 


RRRZABZBLSLVSE 
5 
8 


;COMBINE HIGH & LOW DIGIT 
;LEGAL TEST NUMBER? 

31S THE FIRST peer OF THE 
;STRI NG SMALLER THAN THE LAST? 


~BRANCH 
;YES--SET TEST SELECT BIT FOR SELECTED TESTS 
SADJUST POINTER 


B SPRGERRRS BSE BaRR GSPN ORD 
attr . 


001035 
005201 
004037 
1 
005201 
004037 
O0040S 
005201 
006305 
060502 
Oe0ee7 
003245 
006302 
020462 
odee41 
OS6204 
005742 
036204 


o-oo 
hos 
o4-4w 


BITeeR2), RY 
GrTsT4 : ENCRENENT 
Ra, TSTNNS : fer SITs INTO 
; TES TSeLeLyeD 
(R1),#’. ST BERIOOS? 
GTTsts - : YES--BRANCH 
ANY TEST SELECTED THIS CYCLE? 
GTTST1 :NO--BRANCH 
(R1), 87 :"QPEN™? 
1§ : NO--BRANCH 
RY, ,R3 *YES--SET BITS FOR TEST TO OPEN 
(RL), ;"COMMA™? 
grist : NO--BRANCH 
RI MOVE | TO NEXT CHARACTER 


citsre NO é0 GET_NEXT CHARACTER 
R3 sANY TESTS TO OPEN? 


8 
a 
BR 


g 


GTTST3: 
GTTST4: 


85 g 
3y 8 
9 os 


an 
o-+@2 


8 
P= 


Sear 
222gR 


ate 
Pethietates 
Tt 
Rass 
w 


~ 
w 
4 
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DZRPKB.P11 GT.PRM - GET PARAMETERS 


2 mk 


fo TEST TC BE OPENED? 


GTTSTé: Ihe 1 ete CRARACTER 
EPO ow res 


1$: ST R3 ANY TEST TO BE OPENED? 


iS re TESTING 
Sant ook TEST cee 


SAVGe, 


iSETup fo Use re em TESTS 


OPEN THE fest FOR CHANGES 
OPNTST: J #SAVROS 


OPN.CT: 
OPN. 1: 


SC 
PUT ecg 


man 


Rm 
© 
n+ 
<£-e 


: 83 


; SAVE OPN.CT FOR TYPEOUT 
$3 TES 


: 
aaa * 


3 


oe. 


;CHECK FOR A VARIABLE 
;G0 MOVE THIS 


; BUNP THE POINTER 
hve ee TTS RIAL INTO THE 
ier THE VARIABLE INDICATOR 


peaSiaae 


= 


84SS 
S 
8458 
be 
8461 
eS 
B46 
8468 
as 
8471 
84 
ae 
aes 
ae 
fe 
8481 
(1) 
(1) 
(1) 
8482 
(1) 
(1) 
B 
8484 
84 
BY 
8487 
a 
ne 
849) 
8492 
8493 


; 
: 


ay 
auseaReE eas 





& 
: 
2 
o 
S 
4 
a 
g 


MACY11 27(663) 


GET PARAMETERS 


“MECHANICAL AND READ/WRITE TEST” 


GT. PRM 


11-OZRPK-B 


MAINDEC- 
DZRPKE. P11 


OF THIS VARIABLE 


Bouin -—e 


Soe 


035202 
1S44 025550 


ay 
a 8 


eee 


~——~C) 


ES 
crenaaaaaanG 


4§: 


ee 


bat 4 
CRS 


S836 
=n & 
S2n3% ie 


;;SAVE RPT(R4Y) FOR TYPEOUT 
3,60 TYPE--OCTAL ASCIICALL DIGITS) 


;1S THERE A “CR” AFTER THE PERIOD? 


SNO--STAY ON THIS VARIABLE 
SYES--MOVE TO NEXT VARIABLE 
tYES--GO CLOSE THIS TEST 


(SP)+.R1 
RO, duck. CHR 


eanet Ended fa 


qartgnwe wie Mnnnkktatttotd oi 


ey 
nena — 


RRO nm RK KOTOR. OCoO--- [ame lean Soa Lente eae hed 
hd ad ad Od Od ad 4 wd a hw wh wt a7 





ana er 


SEQ 0129 


N10 
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GT.PRM - GET PARAMETERS 
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“ 
5 
8 " ag 
af By ute 8 woe BS at 
& Be ats a Bo 23 ES £8 tie = «aa 95 
a eee oe & § ous steseoe zz, 80 
2 ee ae 
“4 ‘Seceaes # Bee eR tS BS TSE, zee, 86 ew Bee 5 
gz Waspeess “geestete= aver otnke © [gezete 
—- i | G H ht ' to Fs} = ss vr = 
ST SRELO) SBRESE OSE fo SSSR. 3 SUBBESES 
: oes 
tee 9 oe ASA OG Le. 
ae¢ 3 sees z oege". 33 2 és 
atai; tint’: a & 3 & 


r4 


~ 


HE fronts, of nkepsans 88 Ex: : pit cE catien sae Reunensin? 


ee oe ee oe a ee ee ee 
pe % ro) ! < 2 ot oF 


: big es 
ccomenencten Eoremans fa SeReRee eae — 
esececcoc sess sis nSasaaens 


Som Kee Keen ieee heme kee} THiHHHHi TT ee ome em BS Pocools se he hee hem hen] i) 3) 


026710 


026710 
010264 001436 


a aan 


OZRPKB.P1i 
re 


Bll 


MACYi1 27663) 


SEG 0136 
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SSL AUP 


y 
ty wn 
oO e 
ce bg : 
hn as oO 
ab Eso — & st fF Sh 
oo [oa te ww 
Slate ene 2 | Ogee. Fee 
g a ate Cz cee Bue gyrate y pits 
=SSRdSSiin “wy! git np Se, RRS Be 
Ppbaapeeste get or “yl geo gee uw eeemge 
sila dt tea Tetewoteze to Buaubauiah ice | f 
Sides tee tint seine ene n Ree cornet aa oe te 
wr wm b- a = ~ 
+ oe Ge | ee aed Soe 
en 2 itmcueze® Enews 
-9. ©. Eeieeeies © g.5 5.8 aye 
Sok So ne yeni SSE ISIE Oba oath GE ati eye tun 


BLT 


fig Seb Sa SORES AODh OEE me 
ai a8 
4c BE RES 


4 


1 


seuss 


3 
aA eens 


SASS s PRARZSSRAL se 


us “ie 


; 
tli 


OO he 0 Hh md Od og wh 4 9-4 Om 4 md wd oh ot 


‘Tamera 


Qebel0 900422 
Qeb2ie 912701 COe440 


RRER 
Bebe deo 


oo -. oo 

be of & 
‘SE° £ 

So te Ww 
PySeto @ FE 
ogee ee 
se haptiet, 
Siti hesest: oe 


iS S555 >t Or O >t Or- 
~ mena 
ar ] m=z mar 


— 


pedussusaasess 
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OZRPKB.PL1 - GET PARAMETERS 


3s: (RO)+ Posi FROM POINTER 
RY TION THE TEST SIT 
#81710,R4 
1 pote S ERANCH 
if RO, 8GETROS ; YES--RESTORE RO-RS 
pc’ * RETURN 
gguereansennenvesvonnecnnenscesiuensuezsussnncesnasaonesssesses 
CHARACTER 


OC O¢ 
Dae RUT INE 1S ti ED TO CHECK IF AN 
:#ASCII CHARACTER is A DIGIT BETWEEN 0 AND 7 


RRR KK PS 
Bm ba be me be 
OO NIT UN 5) 


; Q sADDRESS OF ASCII CHARACTER 
; SR eck. SHE CK THe CHARACTER 
RETURNI TER IS NOT aot WEEN 0-7 


Sa me oer 


ps = = boo pee 


GET THE CHARACTER 
‘STRIP _AWAY THE ASCII 
;ADJUST FOR RETURN 


Sz 


RRSESRRNERE LEER SEER SEER E SEGRE EE ELAR EEE EERE EEE hE EES EEE EERE 
~SBTTL CK. CK FOR ey CHARAC TE’ 
;*#THIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 


SUBSE RE REO NNER 


DETERMINE IF IT IS A DIGIT BETWEEN O AND 9. 
;RODRESS OF ASCII CHARACTER 
;CHECK THE CHARACTER 
;NOT BETWEEN 0 AND 9 
;BE Q AND 3 
;Re = DIGIT 
SS THAN ZERO? 
S -- BRANCH 
:GREATER THAN NINE? 


ReSisIa 
eae 


J gee a ov peng “tyr 1 napa aaamancnmncniiie: 
“SBTTL CK.CHR -- CHECK CHARACTER 

s #THTS ROUTINE | uit ec AN ASCIT CHARACTER TO 

;#DETERMINE WHA 


MOV sADDRESS OF ASCII CHARACTER 
JSR RO BO abCe. CHR ‘CHECK CHARACTER 
RETURN ADR ‘UNKNOWN CHARACTER 
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OZRPKB.P11 -- CHECK CHARACTER 


8667 ier hcH ae eae (RI JSADR+1 
+ 


NO 9. 
(R1)=ADR+1 


We i ee ee ee oe 


Cd Seweeses ce ee 


i 
S 


o— £e- ££) 
he 
pos 


VEN 


~ 
oO 


BuSuen85 
y 


ues 


sNO -- BRANCH 

sDigir BETWEEN 0-9 

;PERIOO 

; COMMA 

sCARRIAGE RETURN < 

sMOVE POINTER TC NEXT CHARACTER 

s UNKNOWN CHARACTER 
SHKERASRELALEALALELSRERA ALESHA FHRSLHSA SLEEPS FREE ALAAASHAERLESLALEHRER 

SBT TL CK.DIG - CHECK D 

; #THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL 

*#CHARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER IN Re. 


‘o> OF _ASCIZ STRING 
TUDE OF INPUT NUMBER 


ee 


bs 


Bae | 
= 
o 


FURRSPEE ot 


8668 
8669 
8670 
867! 
Sb7e 
8673 
8674 
8675 
8676 
8677 
8678 
8879 
8680 
8681 
8682 
8683 
8684 
868S 
88h 
8687 
8688 
8689 
8630 
869i 
8692 
8693 
8694 
8695 
8696 
8697 
8698 
8699 
8700 
8701 
8702 
8703 
8704 
8705 
8706 
8707 
8708 
8709 


ick: 


S888 
S2anROs 


~~ b= Ob = bh 1 hs Oe 
= 
5 
° 
Ps 


@ 

ae Te ee el eel ead 

wee wwe ws SS LU OO 
wewe ee ee ee ee ee we 
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;SAVE #2 
3 #4 

3 #8 

;(#8)4(#2)=#10. 

sUPDATE THE et armen 


»D 
r2 


S3Ss3s8 
Wont 


RNoccccce 
RURRRZSERBS 


aoe 


b lsteletatete hh statetatete 
é 
2 


l 
-~4U" £ LOCO 


aS 


SRRERRE ERS 

Goong 
sesnBuRge 

BAQRSRPAORLAA SS 
Rx8 g 


2300 
eo po 
3 


: Lc tiwuetaearT6TEmEmEmEmEEmeeeee 


° L ‘ NUMBER (OCTAL) 
;*#THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
;#AND FORMS AN OCTAL NUMBER IN Re 

;ADORESS OF ASCIZ STRING 


;GO0 FORM THE NUMBER 
;ILLEGAL CHARACTER IN THE INPUT STRING 
~-R2=NUMBER 


FS 
5 


;"COMMA™ 
;“PERIOO"--Re=NUMBER 
; "PERIOD-PERIOD”--R2=NUMBER 


;SAVE_R3 
;START NUMBER AT ZERO 
;OCT pian! 


Sees. 


ee 
® © 


§ 


: 
g 
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DZRPKB.P1i CK.NUM - CHECK NUMBER (OCTAL) 


o0Se01 1$: INC ;MOVE TO NEXT CHARACTER 
006303 ASL R ;FOR THE OCTAL NUMBER IN R3 
10343S BCS ‘DON’T LET IT GET TO BIG 


ASL 
BCS 


ST EREES 
sees 


RO, d#CK. CHR 


@ 
Ce ee ee ee ed 
ok od od 
ee we les le 


= 


:0IGIT 0-93 

;"PERIOO 

j "PERIOD-PERIOD™? 
sNOQ-- 


;YES--RDVANCE THE POINTER 
; "PERIOO-PERIOC” 
;"COMMA® 


; "CR"? 

;NO--BRANCH 

‘YES oe THE OCTAL NUMBER 
sPIte EXIT ADDRESS 


q 


~ 
Tw 
~ 
P] 
mW 
a | 


85 
be 
ene tery » 


877e 
8773 001902 
8774 00S201 
a77e oos7e3 
8777 
8778 
8779 
8780 
8781 


agve 


a 


: 
3 
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CK.NUM - CHECK NUMBER (OCTAL 


5 SA ARR AE 46 9 3 J 9 A A A a a a 
-SBTTL RH11/RPOY DRIVER (REV. 0.9) 


;#COPYRIGHT (C) 1974 

s#OIGI TAL EQUIPMENT CORP. 
MA 01754 

: SAUTHOR: "JIN LACEY 


;#STORAGE FOR RHDS1, RHERI, RHER2, AND RHERS ON AN ERROR “e™ OR “S™ 
s#RPERRS = RHOS 


tame BYTES) 


Loend 
w 


active ith AN ERROR RECOVERY OPERATION 
0 
2 
3 
4 


5 
6 
? 


BBDBBD DOD 


2 


o~ 0 


YPE OF ALL ONLINE, OFFLINE 
XISTENT DRVTYP WILL BE Siro 


(1) 
{1} 
(}) 
‘1) 
(1) 
(1) 
(1) 
(1) 
(1) 
{1} 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(i) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(3) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(3) 


DRVTYP: .WORD 0 





| Seemann ve en, 


ARCH COMMAND FOR THE 1/0 
; ‘ 
IN PROGRESS 
IN WAIT QUELE 


T, STAR 


T WILL CONTAIN A KEY FOR EACH OF 


THEIR 


I 


NUMBER OF LOOK AHEADS PERFORMED 


23-JAN-76 10:16 PAGE 43-105 


“Le ) 
UE. IT WILL CONTAIN THE ADDRESS OF 


TRNSWT 
A ONE WORD 
THE 1/0 OPERATION. 
=8 


a 
3 
HY) 
g 


ooO00000 ONnRooo0000 


PEPEEEE aaa 


;#LACNT WILL INDICA 


;#SOFTWARE TIME 


;#LOOK AHEAD COUNT (LACNT 


AD/WRITE TEST” 


SSS88888 


8B S27 
fom Keun Kem Inc ae Rome | 
ee ee ee ees 


SRSRSR85 


diced natiaalinaaebamndnadntanaatainndinepeaemad mamma edtadementeaameemntneam cmd need cate ened aa enicedememamandmamladnaaaat 
ee et Set Set Me St Set ft Se St et Se Se Set eet See eet See Set See Se et et Ce ee ee ee ee ee eed 





Iil 


MACY11 27(663) 


SE@ 0137 


23-SAN-76 10:16 PAGE 43-106 


READ/WRITE TEST” 


z 

2 
- w 
5 3 
2 : gr 5 &§ i 
Eo oxg § et 
Towed F4- ceo : 
i ape : 
Saas a ya ~ : . 
=. 3 o> 8 ty 
Ae ES apg Pee 
oe ite Se Oe 2 
Sean Si + - at ee - % 
bop te ee 2 geeeeees S23 82 Seeeeeee g 
mocee 892 o beac 5 Ed verrrvry Bes 7 Has _.one88 3 

[=] on) a = ti v ~ teroeerpeeves =z t ~~ sur ~~ 

we | i+ ane 
eceee Gated © gitee © 2 gegeeeee bos g 2, Seer 
o = ~~ = ; at os es 
ee Ta 0 i al Ed Be 


SRRSHESH 


MRASYT PR of FURAN 
fy 


ee Bae 8S eee 


8 8 md oh oh 8 8 nd wd wo wd 

isis ! SSSSRS58 BESSSSRE 
S333 3 3 oe 3 & 

LQ OL LLL LOD LO ONL LO LO OL LN LE LS GO LL, Gy I, Gl, in, GG, On GN, GI LN GN GN, mG LL LO LL, OL OO a“ 


A ae A A A SE A A SE CR A A AY A a | 
ee et Nee et St Me St Set Se et See Se Se Se See See et Se Se Se et Se See ee eet ee ee ee i a Be et et Bt St Set Se eet et Set Set et eet et et 


a 


;SET PROCESSOR STATUS TO RH11/RPO4 LEVEL 
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;SAVE PROCESSOR STATUS 


; dae» a STATUS REGI 
REGISTER ( 


ssseke Ss 


T 

NG 
STATE F 
INE 


DELAY IS 2 SECTORS (MNDLTA=1 WORD) 


2x64 


MACYI1 27(663) 
8. #64 


4 
5 


DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD) 
tL ROLE FOR 
HE 


al 
Cat 


;#THIS ROUTINE W 


. WORD 
. WORD 
AVA 
#T0 
*#NOTE: THIS 


-#MAXIMUM SEARCH FOR I/O WINDOW IS S SECTORS (MXWNDW=1 WORD) 


AXWNOW: 


; 
4 
d 
g 
+ 
g 
& 
-. 
: 


;#DEFINITIONS OF THE RH11/RPO4 ADDRESS INDEXES 


;#CALLING IT FATAL (MCPEMX=1 WORD) 
;#RH11/RPOY DRIVER INIT. CODE 


AXLACT: 
° ne 


R (REV. 0.9) 


Py READ/WRITE TEST” 


1/RPO4Y ORI 
3746 177776 
3737 0e7172 177776 


1 


-8 
RH 


-Pll 


MAINDEC-1 1-DZRPK 





Kll 


JAN-76 10:16 PAGE 43-108 


oe 
~~ 


z 
& 
z 


AND READ/WRITE TEST” 


NUMBER Ger TO BIG 


S TO IN 


INDICATOR 
ONMAND 


Pl 
IVE? 


1-R5 
SCLEAR ALL REQUEST QUEES 
iF ket ROORESS TO BE CLEARED 


THE DRIVE STATUS TO OFFLINE 
THIS rig & 
THE ORIVE TYPE REG. 


~-BRANCH 


~BYE 


;LAST ADORESS TO BE CLEARED 
RESTORE THE PROCESSOR STATUS 

;G0 DO THE NEXT DRIVE 

SUNIBUS ADDRESS OF RHI1/RPOY (RHCS1) 
{GO SET "IE" WITHOUT A “TRE™ 


;RESTORE RI 


ho- 


i ta c 
ee 


; G0 
38 
;SE 


= 
al a 


Seltisiees 
eos 


potas foot ta 


pe, SET. IE 
»RD.RP 


Ro 


Garr 


BbeeceaaRe 


yo am CE Tir 
cece : se 
Ss SZ 


LQ LLL LOL LL LLL LL I my LO, GL I LN, Gi, LO, Fm, Pm, GN, Gm ON, i Ge, fi i, Gn, GO LN, a GO, EO I, GO, IO, eG, GN LN, LN 
AEE NEA A EP SA ET SE OE PRE A A CS A PEE 
i RS Le a ae ieeeee 
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OZRPKB.Pi1 RH1:/RPOY DRIVER (REV. 0.9) 


(1) 7 ; 
i eS by vit, SHEE 
(1) MOV TYP(RS) j THE DRIVE TYPE 
(1) 0274 o20020 MP ,RS ; iT A st PORT RPO4? 
(1) 1 BEQ : veer 
() 024020 re ie ,RS 3) aaa 
! mt | 
(1) Qe745e 2s #121,-(SP) °D0 A” N PRESET” 
Dh Renee Glee onuas Ry Hen.ccgp) iO 8 athe” 
(1) 027462 000000 RHCS1 
T12,-(SP)  ;SET FMT22= 
Benes Beas BR UR? aT Pea 
(1) 027476 o00032 RHOF 
(1) 027500 027566 7$ 
(1) 027502 004037 033134 JSR RO, RO. RP READ RHDS1 
i) Ba Be he 
(1) 27512 012605 MOV (SP)+,RS ;AND SAVE IT IN RS 
(1) be7el4 100011 BPL 4 : IF ATA=O 
(1) 16 116164 027154 000016 MOVE  ATABIT(R1),RHAS(RY) ;CLEAR ATTENTION BIT 
(1) Oe75e4 004037 0331 JSR RO, RD. RP FINO OUT WHY ATA=1 
(1) 000014 RHERI 
(1) 027532 027566 7§ 
(1) 027534 006126 ROL (SP)+ 31S IT UNSAFE? 
(1) 027536 160412 BMI £§ :BRANCH IF YES 
(1) 027540 005105 4S: COM RS *CHECK MOL, DPF, DRY, AND VV 
+1) 027542 pue70s 167077 BIC gtccBIT12¢B1 708817072811 aR oon nee en ke aes 
(1) pesecg ea 000001 027050 MOVE 81,DRVSTA(R1)  ;SET ORIVE STATUS TO ONLINE 
Cb) haa est 027050 SS: CLRB DRVSTACRI) spAIye STATUS = OFFL INE 
(1) Pe reee itd 034354 5%: J RO, GETRIS Rbioe THe ae 
(i) 027572 000200 RTS RO 
(1) ;#REQUEST PRE-PROCESSOR-HANDLES ee: REQUEST 
it _ 
(1) + JSR RO, J#RPOY fm THE RPOY ORIVER 
(1) i PNTADR SS OF fxs OF DRIVES PARAMETER BLOCK 
tt) + RETURNS mee RE i est 16TH QUEUE OR THERE 
(1) 027574 013746 177776 RPO4: MOV aaPs, -(SP) ‘onl et ti STATUS 
(1) 027600 013737 027172 177776 MOV RPVEC+2, a8PS  :DON’T ALLOW ANY RPOY INTERRUPTS 
(1) 027606 116737 oo000i 027104 MOVB 81, ACT *SET “ACTIVE DRIVER” FLAG 
(1) 027614 034334 JSR RO 1S :SAVE R1-RS 
(1) 27620 O12002 MOV (RO)+ Re :PICKUP THE DRIVE PARAMETER BLOCK POINTER 
(1) QOe7622 O0S062 o00016 CLR 16( Re} ;CLEAR_ THE STATUS/ERROR INDICATOR 
(1) De7beb 111201 (Re) RL ‘PICKUP THE DRIVE NUMBER 
(1) Qe ta25et 027950 TSTB  DRVSTACR1) CHECK DRIVES STATUS 
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Feb 


;BRANCH IF ONLINE 
;UNLORD COMMAND IN QUEUE? 
;BRANCH IF YES 


3 


1$ 
ULDFLG(R1) 
3$ 


Se 
33 


RPAOR, R4 
RO, ORVINT 
RETURN 
DRVSTACRL) tT DRIVE. St STATUS ONLINE? 
SITIS{BITIY, s16che) jERGOR--DRIVE IS OFFLINE OR NONEXISTENT 
RO, , DRVQUE PUT THIS REQUEST IN QUEUE 
#103, 2(R2) i ee REQ. FOR AN UNLOAD? 
1 ULOFLGCRL) iSET 
-BR 


a 


Be 


ets 
stot 


THE “UNLOAD IN QUEUE™ FLAG 
DRVACTCR 


I 
THIS ORIVE ACTIVE? 

a IS_YES 

pe ;CALL THE OPTIMIZER 

ORT TISSOETES, IOCRE) ;SET THE “UNLOAD IN QUEUE” ERROR FLAG 


;RESTORE RI-RS 
SCLEAR “ACTIVE DRIVER FLAG 
SRETURN "PS" TO USER LEVEL 
SRETURN TQ CALLER 

;G0 HANDLE THE PARITY ERROR 


38 
oe 


ae 


Bes 
4 


MOV ;ORIVE Sys TO Rl 
JSR ;SETUP A COMMAND 


SR 1 

MOV oars, -( SAVE Bhoee STATUS 

ICB “SEARCH WAIT” KEY 
TRE : T “ppe" CENTER OF REQUEST 

5 TTWERE A REQUEST IN QUEUE? 

BE “BRANCH TO EXIT 

S DRVSTA(RI) 'TS DRIVE ONLINE? 


BG 1§ ; YES 
SR REQUEST FROM 


PC, POPQUE * NO- QUEUE 
I eBiTIS#BITIY, 16¢R2) jSET ERROR BIT OF STATUS“ERROR INDICATOR 
,2(R2) i157 THE REQUEST FOR 1/0? 
;CALL COMMAND INITIATOR 


ee 


: 


me 


a 


i i i i i ti i i i A i i a _h_ aa_ 
a 
NN 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
{ 
( 
( 
( 
( 
( 
( 
( 
( 
{ 
{ 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


ob ob be bh be bb 8 0 8 bb = bs bb = BP b= 0 bb b= = bb 0 0 BB bh 0 = 0 0 bs eb = bb b= pe oe ee 


oe 


;¥' 
3NO--DO LOOK AHEAD 





| ne Te nmmes me a nae 


lll 


WITHOUT A “TRE” 
ueaeD BY DATA XFER 
ER 
? ROUTINE 
Q LOAD 


RESTORE R1-RS 
;SET “IE™ 
;EXIT THE 


ROUTINE 


CI1,CI3, OR C14 


=DATA TRANSFER 


; WHERE 

;CIl 

;CIe 
CI 


KUP BY MAX. SEARCH FOR 1/0 WINDOW 


=SEARCH REQUES 
4=NOT DATA T 
CKUP SECTOR ADDRESS 


;SET “DATA TRANSFER UNDERWAY” 


;RETURN HERE ON A PARITY ERROR 
;LOAD “COMMAND+GO", “A178Al6", AND “PSEL™ 


;GO START A SEARCH 


UJ 
© 
al 
wo 
_e 
oO 
— 
wo 
~ 
é 
ae) 

§ 
o 
wT 


;START A DATA TRANSFER 


;START A SEARCH 

;RESTORE PROC. STATUS 
;ERROR RETURN ADDRESS 
;LOAD CYLINDER ADDRESS 


STNDEX OF REGISTER 


»DRI 
ADD! 
*CI?= 


MACYL1 27(663) 


sculls 


# 


eee ne Om 


HOR OH OD OG CH ODCREH 


as INITIATOR 


(REV. 0.9) 


AND READ/WRITE TEST” 


ICAL 
IVER 


+ eee: 
eos Sse aases ees eeneaerees 


= pe 


PRE LOLOLALLALEROOALO LLOQ oOOoaL COOL LL OL GG I i LG LO a 
A A A A EO RN TE RE I A AN IT RE A AR AN A A A Al A IR ee NS 
er et Se et rt Set Nt St Bae Set et et Set Nt Net et Net St Set Set Ret et te St Ret Nee Net Set et Sat St Net Set Nae Set St Set Set Set Set See Set Set St Set et et et et? 


MECHAN 
/RPOY 





iz 
ITs 


i 


ce 
~~ 


Crib PAGE 4 
THE AOIUSTED SECTOR w 
TRACK & SECTOR 
OFFSET VALUE INTO RHOF 
CHANGE THE UPPER 


3 


7% 16: 


ORIVE STATUS TO OFFLINE 


JAN- 
;START A SEARCH 


3- 


;1S IT A “RECALIBRATE™ COMMAND? 


;BRANCH IF YES 


;I1S IT AN “OFFSET” COMMAND? 
;SET THE DRIVE ACTIVE INDICATOR 


BR IF NO 
;MERGE 7 
BUT DON 


’ 
, 
, 
, 
, 
’ 


;1S IT A “SET FORMAT” COMMAND” 


;1S IT A RETURN TO CENTER? 


;BRANCH IF YES 


31S IT AN “UNLOAD” COMMAND? 


;GRANCH IF NO 


;G0 START THE COMMAND 
;RETURN TO USER 


2 


} 


i 

= 

4 Y 
3 

> 

- 

Qa 

‘- 

—) 


DRVACT(R1) 


8! 
DRYSTA(R1) 


~(SP) 
WRT. RP 


i, ULDFLG(R) 


MACYL1 27(66 
8: 
R3 
RO 


x 


eeoSspnt sR spet esas a PyantnPunte Sats. Rokeby sOe ante k 


ee 
am 
— 


AL_AND READ/WRITE TEST" 


a 


027184 O27ite 


Lh 


LOR LORD OR ORO FR FR FS CORR OR ORS ROR OR SOON OR ORR ON ON OF ER CR NOS 
Fe A ~“~-e 
Oe et lh a OM mle ll lh Se ed Ne ee a et Se a et St St Be Set Set Set Beet Set Set See? feet tee See et et 
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C RH11/RPOY DRIVER ‘REV. 0.9) 


;BRANCH IF NO 
READ THE OFFSET REGISTER 


eo 


033134 


acRue 


;COMBINE “FMT22","ECI” “uct” 
"LOAD "FMT22", “ECI", ANDY OR "HCI. 


é 


000081 
033272 


ae 
328 


T REGISTER™ COMMAND? 
S OF WHERE 
Sten THe FIRST REG 
G. TO Rove , 


ang3 


R&R & 
8 6 


5 
ees 


tes 
ee 
sy 
8 
a 


cette 
Sw 
aR 


w 
b= wror 


a 


et DRIVE” COMMAND? 
;BRANCH f F YES 
;LOAD THE COMMAND 


ma 


Ae os Wes 
“ 


LO PO OR FO EO BO FEE ON OM OR FO ON OMe FN 


Gs 
- < 
4 


2 

“NS 
w 
— 


;REMOVE REQ. FROM QUELE 
;SET THE “DONE” BIT 
; SAVE ha a aa REGISTERS? 


H IF NO 
YES--GO SAVE THE REGISTERS 
;RETURN TO USER 


Rl 

S1000.... FERERCAL) ;SET A ONE SECOND TIMER 
B1,DRVACT(RI?  ;SET THE ORIVE ACTIVE 

PC’ ;RETURN TO THE USER 

Ba? AY tp ;LOAD THE COMMAND 


wae 
fin 


eo 
wee 


ots 
2gaR 


res 
Ng8ea 


<o- “ 


crs 
DRVACT(RI) IS THE DRIVE ACTIVE? 
; BRANCH IF NO 
aBITIS!BITLL, 16(R2) SET “PQR FaRITY ERROR INDICATOR 
VRHL1 ;GO SAVE’ THE RH RPO REGISTERS 
aiil,-(SP) :D0 A “DRIVE C 
RO, WRT. RP 


034154 JSR PC ,EMPTYQ sEMPTY THE QUEUE 


SRaD 
ee] 


88 
©2808 
Besant 
7 


1 
1 
i 
1 
i 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
i 
1 
1 
i 
1 
1 
1 


ee et ee i et et et ct et at et et et Re et et Bt tt et et Re et et et et et et et Net et et et eet eet eet et et ee ee ee et ee ee eet et et eet ee eet ee 


Pt ie ae tee atte tee ae ae ae a ee De ee ee ee a ee i ee 


tat at at AtAtAt ay 
a 
ono 
epee at 
orco 
3 
R 
= EBS 
won 
uw 
~ 


: 
4 





i tos 
Bd 


es 


= 


es 


: 


ae 


RS) a rE eso 


: 


8 
—s 
£ 
Tw 
ss 


4 


RBNERSeS 
388 
a8 


area £ Eultdnieceeeeae> 
fu 


ZIRE LEE 


RS 


ORsoRoRES He 
PRRRURpRECRKE 


SSSSSS8SS8SS8SSiSSessccssssascooas 


furu 
men 


ee me et et et et et et et ee et et et eet et et eet Set et et Ne Geet et Ree et eet et et Set et et et eet et See et et Net et ee Get eet Set Set ee ee eee eet et eet et ee eet 
. 


Fn th same Edin de Tce th cam came hen hae Tae Tame Edit ame hie hee ee ee 1 ae he oe ee eee ee oe ee ee ee ee ce ee ee he ae a a a aa ee a 
& 20-8 Ob = p= b= bb be 8 Fh hb 8 bh B= ps B= > BP bP Pb Pe = bb bs bm Po PD Pb = ho Pe he Pf Bh = Ph b= BP PO 


S88 BERR 
Be? 2pgRb 
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DRIVER (REV. 0.9 
02710 CLR DFLG(RI) CLEAR TH THE UNLOAD IN QUEUE FLAG 
€LRB BavAg (Rl) IDLE 
027152 CMP RL, OTUW LIF tire SATE HAD AN 1/0 REQUEST 
BNE 1$ IN PROGRESS CLEAR ALL OF THE FLAGS 
027100 CL TRNSWT 
177777 027152 th HOY 8-1, DTUW 
334 C18: JSR RO, SAVRIS ;SAVE RI-RS 
7166 HOV REROR : ‘PICKUP THE ADDRESS OF THE FIRST REGISTER 
CLR 23 
027040 1$ TSTB © ORVACT(RI) sDRIVE ACTIVE? 
BEQ 3$ ;BRANCH IF 
027100 MOV TRNSWT, R2 :GET THE “TRANSFER WAIT™ QUEUE 
027152 CHP Ri, DTU ai ieee HAVE AN 1/0 IN PROGRESS? 
034250 ISR PC, GETREG GET THE OPB POINTER 
033434 2 oR PC’ SVRHI1 [SAVE RHIJ/RPOY REGISTERS 
102c0o op0cié 81s eBITIS'BITIO, 16¢R2) sSET “NONCLEARABLE PARITY” ERROR INDICATOR 
177777 (27132 MOV 8-1, TIMER(R3}  ;STOP THE TIMER 
027040 CLRB  DRVACT(RI) sSE an nive E ACTIVE” TO IDLE 
027306 3$ €LRB ULDFLG(RL) BR UN 080 
INC I ROVE TO THE NeKT DRIVE 
ADD 82, R3 
rea BIC atC7,R1 
BNE 1S ;BRANCH IF MORE DRIVES 
177777 027152 MOV 8-1, OTUW NO DATA TRANSFERS 
027100 CLR TRNSWT ;CLEAR THE “ R WAIT” QUEUE 
034072 JSR PC, CLRQUE :CLEAR ALL OF REQUEST QUELIES 
coco10 MOV s8iTOS,RHCS2(R4)°:D0 A MASSBUS INIT. 
033526 JSR PC, SET. IE BET T "IE" WITHOUT “TRE™ 
034354 JSR RO; GETRIS : RESTORE the REGISTERS 
R7S ? RETURN 
#L00K AHEAD ROUTINE 
: #CALL 
: MOV 8ORVNUM, RI sDRIVE NUMBER 
i 80PB. Re POINT TO ope 
* ISR RO,LA G0 CHECK WINDOW 
* RETURNI ERROR RETURN 
i TURNE SSTART A SEARCH 
* TURNS :START A DATA TRANSFER 
027166 LA: MOV RPADR, RY GET RHCS1°S ADDRESS 
000010 MOV RI,RHCS2(R4) SELECT DAI 
033134 ISR RO; RD. RP “READ C CYLINDER 
4S ERROR RETURN ADDRESS 
000012 CNP (SP)+, 12(R2) iis it NT CYLINDER=DESIRED 
BNE 3$ “EXIT IF NO 
027116 INCB  _LACNT(R}) INCREMENT THE LOOK AHERD COUNT 
027116 027174 ine CACNT (RI), MXLACT’ sEXCEED MAX? 
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SEGBESSSSSSSSSSBESOSR3 t- 


es ;BRANCH IF YES 
ll 000010 10(Re),R3 ;GET DESIRED SECTOR ADDRESS AND 
000303 R3 ;MULT. BY 64--ALIGN WITH 
R3 ;LOOK AHEAD REGISTER 


R3 
#340, 38PS PRIORITY LEVEL "7" 
RO, RO. RP *READ LOOK AHEAD REGISTER 
($P)+,R3 CALCULATE THE DELTA 


8<22.%64.)>,R3  ;MAKE THE DELTA POSITIVE 
MXDLTA, R3 ; CHE re hee 


RR endo RES 


006203 

B1s73 OOO340 177776 
004037 033134 
000020 


WLIW) 
= Ph p= 
Or £MVUO 


MNOL TA, R3 
$ LACNT(R1) 
(RO}+ 
3s: ST (RO)+ 
RO 
4S: JSR PC ,CI7 
RO 


;*INTERRUPT SERVICE ROUTINE 
#1, ACTDRV 
RO, SAVRIS 


LO LO LR LB RS LR FO BR LO LR LS FR OR EE RN FO Oe OO 


8 
4 


RY 
DTUW, Rl 
1§ 
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ay 
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q 


sap 


SC 
RO. GETRIS 
ACTOR 


SrSeResoee = BRSECRSEO 


ee oe ee ee ee 


BOSSGGG000G 
SS 


;#TRANSFER DONE ROUTINE 


DRVACT(R1) ;SET DRIVE ACTIVE INDICATOR TO IDLE 
8-1, DTU ;NO DATA TRANSFERS UNDERWAY 


Ri 
a-1, TIMER(R1) 


8 
= 


cs 


S888 

setae 
2R0 
2 

eaganae 


;GET “DPB” ADDRESS FROM THE 
; TRANSFER WAIT QUEUE--CLEAR QUEUE 


SELECT THE ORI 
{TRANSFER ERROR TRE=1)? 
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1 
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1 
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1 


ee Ae A ee 


LQ LCL ORL LR PR FR FR FR ON FR FR FR FR FN FRR EO FR FN RES 


SBSSSS0009 


a 
8s 


;BR IF YES 
;SAVE THE RH11/RPOY REGISTERS? 


w 
- 
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ae 
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RY #2) 


STATUS REGISTER 


CONDITION ( 


DATA 
RHAS UP TO THREE TIMES 
ANY ATA BITS = 1 


eine 


C 


i 
iechooes 
;EMP 
PC ROVE TO THE NEXT DRIVE 
Hoe me Bs 5? 
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iMOVE TO THE NEXT DRIVE 


*BRANCH IF NO 
ce 
ty 

* NONEXISTENT? 
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2 « 


B be 
bist 


cphusdupenenactenu heenrcey wae: pat acre 
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z 
Sake Bay. 


Satie 


aie 


;*SPECIAL CONDITION ROUTINE 
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ee zr 
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UR LIRR tele ne ate 8 CIN ot INN OU SSS 


hd st a hd ed hh Oh gd dh 8 Od on gd eg ed ag td et tt de ad 
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Sioleletetetetetetetstetstoteietetoieteteten PSS ASS SSSS SNS SSS SSS SSS S SS Saas 
a et tt et et et et Nee et et et 
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~ = 2 & nh WH HK4oean — ™~ wes «aa @ 2464 = 
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-DZRPK-B 
RH 


OF ERROR RECOVER COMPLETION 


+ 2 d @ & 
i+ 4 

=< g ag & w ; ra 

, 8s Bec se Bt Fe. 582 

“eda § bh Pei te a ee Bae 

So» wl 8 4 g Fry awe ¢ 4S 
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ee To Se 
a es ae " wooed 2 
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se =o sie Snes Sel SWN SoS Has : : j aE 
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sole 2 Bi ff 2 be, 22 he 
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) ae BS Re wee mesaaey 
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a2 
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032460 
036470 
76 


fee er 


RY) ;SELECT DRI 

RPERRS oRAVE THE FOUR REGISTERS THAT 
RPERRS+ ;WILL TELL US SOMETHING 
RPERRS+4 


+6 
SANIT THE STATE OF THE DRIVE 
; TAKE ERROR EXIT 


333 


aaMgSss 


tBOP PC OFF OF THE STACK 
IPROCESS THE PARITY ERROR 


1$: 


BAxB 


;#RPOY TIMER ROUTINE 
; #CALL 


STIME,-(SP) . ILLISECONDS ON THE STACK 
RO, RPTMR *CALL RPO TINE 


RPTMR: 


“a gs 
4% 


“ae 


1S THE TIMER RUNNING? 

"COUNT THE INTERVAL 

-BR IF NO SOFTWARE TIMEOUT 
TIMEOUT ROUTINE 


ad aa 


1 
44 


3$: 
4§: 


;DRIVE NUMBER 
;CALL--DRVACT MUST BE NONZERO 


;SAVE_ THE PROCESSOR STATUS 
;SET THE “PS” TO RPOY BR LEVEL 


PREAD “DRIVE STATUS REG" 


( 
( 
( 
{ 
( 
( 
( 
( 
( 
( 
( 
( 
( 
{ 
( 
{ 
{ 
( 
( 
( 
( 
( 
( 
{ 
( 
{ 
{ 
( 
( 
( 
( 
( 
( 
( 
{ 
{ 
{ 
( 
( 
{ 
( 
( 
( 
C 
( 
{ 
( 
( 
{ 
( 
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ee ee A A LL DD _ ,_ A _____S_S_A_S_S_S__S_A_S_A_ ASA Ae 


31S “ORY"=1? 





Md QUEUE 
THIS DRIVE? 


ER tae 
SS 
THE ERROR FLAGS 
WAIT QUEUE 
/0 ON THIS DRIVE? 


TRANSFER WA 
THE DPB POINTER FROM QUEUE 
; INFORM USER OF INIT. 


IF 


DRIVE ACTIVE TO IDLE 
ATTENTION FOR THIS 
TORE Ri-RS 
TORE PROCESSOR STATUS 


THERE 
~-BRANCH 


IT 


;DATA TRANSFER UNDERWAY FOR THIS DRIVE 
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;BR IF NO 


;G0 HANDLE THE PARITY ERROR 


;ADJUST FOR THE PROPER RETURN 


2NO DATA TRANSFERS UNDERWAY 


;CLEAR TRANSFER WAIT QUEUE 
;CLEAR ALL REQUEST QUEUES 


; YES--BRANCH 
;YES--CHECK “RDY™ 
;BR_ IF “ROY"=0 

; RETURN 


i 
ines 


Tle 


Basie 


eae anaw 


gaegact tenses pa sendeae 
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ITE TEST” 


;*#ROUTINE TO READ A RHL1/RPCY REGISTER 


oa 
r 


‘ 
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cs ieee OG bb Bea 
—— aoenea 


ae 


“7 hw in 
BEE ie 


; 
ss 
SIU SEUE Mosse eeNaS cb: 
ee 


AAA OOO QR BLOB OL LO LOLOL LOLOL OO I ON, i 
SSSR SRS SSS SASS SSS SRS SARS S SS SSS SSAA S SASS 
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§ PSEL 


8 PSEL WITH 


REGISTER TO BE WRITTEN 
FOR DATA TRANSFERS? 
THE OLD ALG3A17 


S$ 
S OF REG. IS ON THE STACK 


SS--PROCESS ERROR STARTING 


WORD TO WRITE 
TACK 


oF 
F NOT RHCS1 


eT Gel 


tNO=--COMBINE ALGSAL?, 


tee ELA e elt 
;ADORESS TO RETURN TO ON AN ERROR 


;ERROR FREE RETURN 
rt 


—_ 
wu 
ont 
' 
™ 
r 
oo 
ee 
°o 
—_ 
: 
& 
re 
ra) 
cu 


;DATA TO BE LOADED ON THE STACK 


C 
I 


;PATAL ERROR EXIT 


;BRANCH IF NO 
; SAVE 

;ADJUS 

;GET I 

; BRANCH 


_- 


uo 
~~ 
~~ 


£5 ae 2BE as 
REee Skate Bendis c 3 8S, 


ie seseeMlbecane Demcnackeetishuae 
A Be 8s 
222. 222 eG “ 2 @ 
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8 
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ee ee 
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RHLLRPOS ORIVER (REV. 0-9) 
THE COMMAND BEFORE SENDING IT TO 
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ee ee ee ee a ee ee ee eR A A A, 4 4 A ASS Se SS Ae wo 
. 


re 


(SP) 
8¢C7 (SP) 5 
4, WRT. 


@ 
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o 


; TAKE THE ERROR EXIT 
THe pooress A THE DISK REG. 
Wal TF Ge 

Pe PARITY ee ON WRITE 


;BRANCH IF “PAR=0" 
:PICKUP THE INDEX 
;READ THE REG, 


BERESE 


ene 
“55 


5 
£ 
ros 


8 
PE haer tee 


1$: G. INDEX 
: RETURN TO THIS ADDRESS ON ERROR 
SREPORT THE 
;CLEAN OFF mi ay 
2s: ;TAKE THE “PARITY ON WRITE™ ERROR EXIT 


3$: ;ADJUST FOR ERROR FREE EXIT 


say 


cuore 


sOPBNUN Re ;0P8 POINTER TO Re 
JSR ;SAVE THE DRIVES REG’S 


;SAVE REG.’S R1-RS 


; SELECT DRIVE 
tne ERROR TABLE POINTER 


28 
ie 
a2 


mae 
r 


BB 
a 


cose 
= 


IF 
SAVE IT AS 0°S 


;FORM RH11/RPO4Y ADDRESS THAT IS 
10, BE READ 


READ IT 
inOvE 0 NEXT REG INDEX 


BENCH TE tO. R1-RS 
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ys 
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. 
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OnvwmMTwwK Onur nwr 


eye eee Syeeeeey 
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ratataf~tatatatn] SSSES855 SSSagggg 


SHOR EMERMSES EH EHR ER eH Oh seeRememnea se 


AR 
T 


: 


CLEAN OFF THE STACK 
;CLEAR ™ 

;RESTORE RY 

;RETURN TO CALLER 


;SET THE TRE" BIT OF THE WORD READ 


;ADJUST FOR DATO 
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;PICKUP ADDRESS OF RHCS1 


;SELECT DRIVE 


;ORIVE NUMBER TC R1 
;READ_RHCS 


i 
é 
e 


ig 
: 
Z 
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: 
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= 
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7 
1 
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;SAVE RY 


_- 
— 
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8ORVNUM, RI 
PC, SET. fE 


— 
T 
-~0. b-1 
eeabes 222020000 


> wn a he >w Perreeee 
St aa ote 


MOV 
JSR 
RETURN 


; #CALL 


AND READ/WRITE TEST" 


R (REV. 0.9) 


feSressumay SEEREEEE 


co! Bae 


PRL LL FELLA LALO BQ. LOLOL LO LO LOLOL OO LO LO Gm oy Ee Gm, Lm, Gy FO LO, Oe, 
A A A A A A AO A A A A AE A A AC A AP A A ABS A A A CE A 
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1 START ADDRESS 


T POINTER 


QUEUE INTO THE 


OUTPUT POINTER 


HE STARTING ADDRESS 


Serre 


Sonnmnnnn 
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;CLEAR NUMBER OF ITEMS IN QUEUE 


;RESTORE R1-RS 
;DRIVE NUMBER TO R1 


OoO0O00000 
ed 
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ORVNUM, Rl 
PC, EMPTY@ 


EMPTY@: CLRB QCNT(R1) 


ASddddSSeHESSSHEAE 


3 
i 
= 
2 
: 
7 


si THE QUEUE SPECIFIED BY RI 


ee ee 
w 
_ 


a: 
ee Ee re 
ae OEE aaBEREEEEEEESS 


AND READ/WRITE TEST™ 
IVER (REV. 0.9) 


AL 


IC 


-B “MECHAN 
RH11/RPO4 


ZRPK 


-0 


ll 
1 


034154 105061 033600 
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J 
aed 


nbc Shoes 3 


NPT(Ri),QOUTPT(R1) ;SET OUTPUT QUEUE POINTER=INPUT POINTER 


2CD0t> ’ e+ 
Beby bt: 
be <e-o me 


~~. oe 


oe ene 
et ee et et et we 


: 


#10, QCNT(R1) 71S QUEUE FULL? 
;BR IF YES-TAKE RETURNI 
oe ; INCREMENT QUEUE COUNT 


Re. SOINPT (RL) sPUT THIS REQUEST IN QUEUE 

#2. QINPT(R ; UPOAT — THE QUEUE POINTER 

QTNPT (RL). astopcai) : ring TO. RESET THE POINTER 
TART(RI) “QINPTER:} } ;YES--RESET POINTER 


1S: l 
T RO}+ ; TAKE RETURN 2 
es: : RO sRETURN TO USER 


;#ROUTINE TO GET THE “DPB” ADDRESS OF NEXT REQUEST IN QUEUE 


8 
3 
iy 


Og 
a 
~“ 


att 
ro 


#ORVNUM. RI sDRIVE NUMBER TO Ri 
PC, GETREQ ;60_ GET THE REQUEST 
="DPB” ADDRESS OF THE REGUEST 
iRo=0 IF NO REQUEST IN QUELE 


Re 
GCNT{RI} ;1S THERE ANY REQUEST IN GUEUE? 
es ;NO---BRANCH 


R1 
paella tn ;PICKUP “DPB” POINTER FOR THIS DRIVE 
PC ;RETURN TO USER 


SORVNUM, RI :DRIVE NUMBER T 
PC, POPQUE :CALL TO REMOVES hUEST 
*RE=ADORESS OF REMOVED 


ier ) ;DECREMENT QUEUE COUNT 


SL UTPTCRI) Re ;GET THE “DPB” POINTER 
#2,Q0UTPT(RL) UPDATE THE QUEUE POINTER 


‘ 
ee Ee ee ee ae ae i Pe ee de a ee oe i ee ee ee 
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6 033630 933652 < | adenoma - ae Te Reset THE POINTER? 
Q16161 033650 033630 MOV QSTART(R1) ,QOUTPT(R1) ;YES--RESET THE POINTER 
006201 18: A R1 


SR 
0dS207 RTS PC ;RETURN TO USER 
j ROUTINES TO SAVE RO-RS AND R1-RS 


s;#CALL: SAVROS 
;# JSR RO, SAVROS 
3% RETURN 

3# 

s#CALL: SAVRIS 

;% JSR RO, SAVRiS 
;# RETURN sRI-RS IS ON THE STACK 


;# 
s aUPON RETURN FROM SAVROS AND SAVR1S THE STACK WILL LOOK LIKE: 


;RO-RS IS ON THE STACK 


LO LO LON NR LR RB NN OO Pe PO NO Fe 


sSAVE RO BY THE JSF INST. 
;SAVE RI 


;SAVE Re 
;SAVE RS 


ONoVI0IO 


;HROUTINES TO RESTORE RO-RS AND R1-RS 
S#CALL: GETROS 
7% JSR 


- URN ;RO-RS HAVE SEEN RESTORED 
:#CALL: 
5% 


;RI-RS HAVE BEEN RESTOREC 


;POSITION RO 
;POP_RO OF THE JSR OFF OF THE STACK 
; ORE RS 


ns 


= 
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} 
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-SBTTL ASCIZ MESSAGES 
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ne, 
‘Bac1z /PAT/ 


=/ 
<15>¢12>/CONTROL SWITCHES=/ 


ASAABRSSS 
BR RRIDSRRRS 
NN ONANNNNNNNS 


é 


2 282 88 8 8 g 
Re Bs 


€15>< 12> /RHCS1=/ 
(15> «12> /RHVEC=/ 
(15>¢12>/RHPRIC=/ 


Ee 


¢15><12><12>/ROTATIONAL SPEED TINES/ 
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1 
4 


Bessey 
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0 
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33 
35 


¢15>¢12><12>/0NE CYLINCER SEEK TIMES/<15><1l2>/## O, 1, 2,...410 ##/ 


geasants 


(15><12>7## 410, 409, 408,...0 ##/ 


i=] 
uy 


(15><12><12> AVERAGE SEEK TIMES/<15><l2>/a# O TO 136 #a/ 


(15><l2)78# 136 TO 0 #87 


€15><12>¢12>/MAXIMUM SEEK TIMES/<15>¢12)>,"8# O TO 410 a#/ 
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: .ASCIZ <«i5><1l2>/## 410 TO 0 #47 
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une 


dick 


: .ASCIZ «15><¢12>/MIN=/ 
: .ASCIZ ¢15><12>/MAX=/ 
: .ASCIZ <15)<12>/AVG=/ 


: .ASCIZ /0 US/ 
: .ASCIZ / BELOW THE MINIMUM OF / 
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e 


ee 
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SYOR-—SR 


: 
: 


22 
me 


: .ASCIZ / ABOVE THE MAXIMUM OF / 


as 
in 


: .ASCIZ / SEEKS TIMED/ 


: .ASCIZ / NOT TIMED’ 
: .ASCIZ 7 7 ;TWO (2) SPACES 
ERROR HEADER (EM) MESSAGES 
-ASCIZ ILLEGAL RH11(SC=0), INTERRUPT OCCURRED’ 


IOPENERBT SR 
ig 


03S074 
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03Se0e 


abasts 
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“ILLEGAL RPOY INTERRUPT OCCURRED/ 
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LPR be oe 


/MASSBUS PARITY ERROR(MCPE=1)/ 


A 229 
R 
8g 


PERR 
ERahre 

SEO 
nea 
PRESRRE R 
iiueees = 


/MASSBUS PARITY ERRCR(PAR=1) / 


& 
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DZRPKB.P1i ERROR HEADER (EM) MESSAGES 


93$364 


pee /OFFLINE, NON-EXISTENT, OR UNSAFE DRIVE INTERRUPTED/ 


es 


O3s442 
035450 
ioe 
O3e%e? 
O3S474 


oSe8i0 
035516 


BR 
BURR 


“RH1I/RPOY FAILED TO RESPOND TO ADDRESSING” 


Sa 
sae 


R 
SoBe 


i, 
ai 
BERNE 


/ORIVE SELECTED IS NOT ONLINEZ 


E258 5 


4 
ov 


Rae 
BESeR 
RBPREP 
SR 


_ 
es 


_ 
~ 


7IMPROPER HEADER CATA/ 


0S! 
04 


sf 


/DATA COMPARE FAILURE/ 


tu 
a 
-~-O0O 


RRP 
OR 
ae 
a 


/DISK ERROR IN TIMING TEST/ 


2) 
zf 
i 


- 
ru 


ji 
ist 
R 


= 
Loo 
ae 

~ 
jet 
PF] 


“CLOCK (KW11-P) OVERFLOW IN TIMING TEST/ 


#28 
P2R2RR 
Rewer 


“RH11/RPOY ERROR” 


/FATAL WRITE CHECK ERROR/ 


ae 


a 
Sey 
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OZRPKB.P11 STATUS/ERROR INDICATOR MESSAGES 


8839 -SBTTL STATUS/ERROR INDICATOR MESSAGES 


Seu 036021 4 pany MSGB14: .ASCIZ /OFFLINE OR UNSAFE DRIVE REQUESTED’ 


om 


Pos pe pas fe 


/UNLOADED ORIVE REQUESTED/ 


oe 


22 FeuZ 


/PERSISTENT UNSAFE / 


_—se 
SEN R 
R 
~ 
uw 
~ 
= 


-—o 
ey 


Ww 


/PARITY ERROR OCCURRED/ 


LARLP 
2 


3 
2 


at 
§ Re 


—- eh 


/FATAL PARITY ERROR/ 


NEGKERSVEWS 


b= bb § = be ht bh + fr be be 


PRRRRRRDEDS 
2 8 

RB 

#9 


‘SOFTWARE TIMEOUT ON THIS DRIVE/ 


ange? 8 
2S NRS 


/SOFTWARE TIMEOUT ON ANOTHER DRIVE/ 


a 
i 


F 


§ 
~ 
™~ 


036200 
036296 
036207 
036214 
036222 
036230 
036236 
036244 
036246 
036270 
036276 


oo 
R 
— 


2 
oi 
Ra 


@Re 
rare 


“ERROR OCCURRED DURING I/0 OPERATION" 


5 


THUR OU 2 


“ERROR OCCURRED DURING NON-I/0 OPERATION” 


all amend 


ZRRSSS 
RRL VER 
2? 

wee 


B22ERRR? 
Saeee 
RS 


SIAR 

Rk 
FRARBSMR 
SRR RE 


bt be ee 
— Vor 


/UNSAFE OCCURRED/ 


22 
a 


22 

RS 
RZ 
H 


/RUTOMATIC RECALIBRATE SEQUENCE OCCURRED/ 


28 

8 
PE 
By 
a 





SEQ Ol6e 


H13 
23-JAN-76 10:16 PAGE 43-131 
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STATUS/ERROR INDICATOR MESSAGES 
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OZRPKB.P11 


o 
Ps 
- & 
a. 
ae Me @ 
; : e 
ce g 
SS 
- = 3 Fe 
: : e 
~~ § Ww 5! 
ce 4 
¢ s 8 3 3 
“Ta - 
;  O6dE E ; 
ae b 3 
ge f ae eS 8 # - 
wm — 
ye & fF &£ & £& £& 8 
- 
—-——- & - & an YS 
52 & ob 6G gb : 
fn on Nv oN NN N 
2 & g # #8 & & 
Bag ao 3 4 wi 
tz & Pa BB & z 


B Gatbaiessl Gate anu Ba 6 Gellstades Bax 

Ga eeseictes clabiaetel® chase eéstlctls kate 

iB: Wiletelens Bazeiicaeee Geeks aOtezeoai 

as Aa asus Ra aada Has UARAANARAA CODE 
we SiS ti 


RHERe RHER3/ 


23-JAN-76 10:16 PAGE 43-132 
WROCNT GDADR BDADR/ 
ERR PC ORIVE RHCS1 RHODS RHER1 
ERR PC TST PC DRIVE CYLNDOR TRACK/ 
WROCNT SECTOR/ 
ERR PC TST PC DRIVE/ 
ERR PC TST PC ORIVE RHCS1 RHCS2 RHDS/ 
RHERE RHER3/ 


BODAT 
BODAT 


-_- 
3 
ld 
Tw 
~ 
~ 
2 


/GDDAT 
/TEST 


/GDOAT 
1Z /TEST 

“TEST 

/RHER1 


-ASCIZ /TEST 
ASCIZ 

AES 
ASCIZ 


-ASCIZ 


DHi3A: .ASCIZ 


DH21A: 
DHY1 
DHY3A: .ASCIZ 


ros Ss ae EE 


= a GG cimcucie: desahatcaetetsts 
vias Goeth “Gieeatees Geoe ae 8 Ntesatier Ga! i 
SLB GSD nS oS BBG ADDAEEEE 


AL_AND READ/WRITE TEST” 
DH17: 


C 
DATA anlage (OT) MESSAGES 


MAINDEC-11-DZRPK-B_“MECHAN 


OZRPKB.P11 
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DZRPKB.P11 DATA HEADER (DT) MESSAGES 
8870 037573 122 O41510 030523 DHY4A: .ASCIZ /RHCSL RHCS2 RHDS RHCC RHCA  RHDA/ 
037600 051040 041510 
037606 O31123 O20040 051040 
Sareea HCTOND ONS Oe0I09 
03 Seanad 051040 O41510 
037636 620101 020040 051040 
037644 O42110 000101 
8871 037650 gilee OS110S 020061 OHN4YB: .ASCIZ /RHER! RHER2 RHER3/ 
037656 O44le2 051105 
037664 Oe0062 O20040 O4il22 
Ba7ere ONdies OSTibe 
9872 O44122 051105 020061 DHYSA: .ASCIZ /RHERI RHER2 RHER3 RHWC  RHBA  RHOB/ 
037704 O20040 O44le2 051105 
037712 Oep0s2 OP0040 O44I=ce 
Bar7ae DAiSs ONiSe? O0040 
937734 O20090 O441 SSpeas 
037742 Oe0040 O44 122 
037750 041104 000 
8872 
8874 
8875 037754 EVEN 
8877 .SBTTL DATA TABLE (DT) 
8879 037754 O01170 001116 OT1:  .WORD S$TMPO,SERRPC 
8880 037760 001170 O01116 001156 DT2:  -:WORD $TMPO,SERRPC, SREGI,SREGS, RPERRS, RPERRS+2, RPERRS+4, RPERS+6 
03776 001166 027030 027032 
037774 027034 9027036 
8881 o40000 Gales 001116 033160 DT3 .WORD  $TMPO, SERRPC,RD.ADR, RD. WRD 
gage By vate 001170 001116 033362 OTY .WORD $TMPO,SERRPC,WRT.ADR,WRT.WD,RD.WRD 
040016 033360 033162 
8883 040022 001170 001116 001156 DTS .WORD  STMPO, SERRPC, SREG1, SREGS, RPERRS, RPERRS+2, RPERRS+4, RPERRS+6 
040030 001166 027030 
040036 Bo70sN 027036 
e884 O40042 001326 001116 DT10: .WORD RH.ADR, SERRPC 
B88S O40046 001160 OO1116 OTl1: .WORD  S$REG2, SERRPC 
8886 O400S2 001170 001116 001154 DTl2: .WORD STMPO,SERRPC, SREGO, CHKDRV,CYL.DS, TRK.0S,SEC.DS 
b40060 00123 001252 001256 
8887 040070 001252 001256 001254 DTI2A: .WORD CYL.OS, TRK.DS,SEC.0S,CYL.RD, TRK.RD,SEC.RD 
040076 001244 001246 001250 
8888 O40i04 001170 001116 001154 OT13: .WORD STMPO,SERRPC,SREGO,CHKORV,CYL.0S, TRK.0S,SEC.DS 
ovOl1e 00123 001252 001256 
9889 poles 011 901128 001164 OT13A: .WORD SGDDAT, SBDDAT, SREGY, SGDADR, SBDADR 
8890 O40134 001170 OO1116 001236 DT17: .WORD STMPO, SERRPC,CHKDRV,RP.REG,RP.REG+12, RP.REG+I4, RP.REG#HHO, RP. REGHE2 
O40142 003540 o035S2 4 
040150 003600 003602 
8891 O40154 001170 OO1116 001154 DT2l: .WORD STMPO,SERRPC,SREGO, CHKDRV,CYL.DS, TRK.OS 
O401b2 001236 001252 O01 


ee ett oe “MECHANICAL AND READ/WRITE TEST” 
OZRPKB.P11 


8892 
8893 
8834 
8895 
88% 
8897 
8898 
8899 
8300 
8901 
83902 
8903 
8904 
8390S 
8906 
8907 
8908 
8909 


bripe pe pe py pe pepe preted 
a ee 
WONMUWNL WHO 


SSNORSENES 


Ba 


DATA TABLE (OT) 


OTelA: 
OTY1: 
DT42: 


DT43: 
DT43A: 
DT44: 
DT44A: 
DT4Y4B: 
DTS: 


OTYSA: 
OT4SB: 


55 555 55 5 285 
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SREG1 , SBDDAT , SREG4, SREGI 
STMPO, SERRPC, SREGO, CHKORV 
STMPO, SERRPC , SREGO, CHKORV,RP.REG, RP.REG+10,RP.REG+12 


STMPO, SERRPC , SREGO, CHKDRV, RP. REG, RP.REG+10,RP.REG+12 


STHPO SERRE, SECO. CrKORV CYL. DS, TRK.0S,SEC.DS 
RP. REG, RP. REG+10,RP.REG+12, RP. REG+36, RP. REG+34, RP. REG#06 
SAPD. SERREC, SECO CIKORV. CYL. DS, TRK.0S, SEC.DS 
RP. REG, RP. REG+10, RP.REG+12, RP. REG+36, RP. REG+34, RP. REG+06 
RP. REG+14, RP. REG+40, RP. REG+42, RP. REG+2, RP. REG+4, RP. REG+22 


-SBTTL DATA FORMAT (DF) TABLE 


OF 1: - WORD 
BYTE 
-BYTE 


;NUMBER OF DATA HEADERS 
;NUMBER OF WORDS IN DATA TABLE 
;BOTH NUMBERS ARE OCTAL 


onme~ 


ome OME OU OFS O--r- 


—~TU 
& 





BPBATAuokoS PotLo THE 2NO DH 


% 
“4 
™ 
r 
wo 
“~ 
o 
= 
* 
& 
7 
bit J 
wu 


;WORD 3 IS DECIMAL 
;WORD 3 IS DECIMAL 


MACY11 27(663) 


rs) Fa Z 


ce OSE SSE aEeeey ercerrerr 


Bg 


DATA FORMAT (DF) TABLE 


= eeaces gee gS aS Bes gs ae -— a a 


ces Eepees Gee Gee Eeeeee E2e Ee 022 Eeees Eee: 
SELCROSEEOEL CAEN UR ORMONDE DEA OTUESLECCCRECRIOEEE 


MAINDEC-11-DZRPK-B “MECHANICAL AND READ/WRITE TEST” 


OZRPKB.P11 
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ll DATA FORMAT (OF) TABLE 


z 
e 


DFS: 


Beet 
zo 


Secs 
sate 
g 


o 
a 
=. oe NW 


& 
Be 


sqqaza7aaaaa7g 3 
; 


: 
: 
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OZRPKB.P12 © CROSS REFERENCE TABLE 


ACTORV 


D 
— 
& 
rar) 
= 
8h 
~“ 
~-_ 
a 


acsee COSGGDEESSs TEER! una 


ey 6651 
7046 8408 «= «B44 s«BY 8479 = 8596 


dgd Bd 


S89e aeoR 


WONG WIEN 3F, 
UNUTUONUNU  "*#OWNWUIrUuMnUnoine or 


434444 44 
McWwMr-O 


Bodoni 


AC 
B 
8 
8 
8 
8 
8 
8 
8 
B 
B 
8 
B 
B 
: 
8 
B 
8 
B 
B 
B 
8 
8 
8 
8 
B 
BP 


4 
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DIRPKB.PLL CROSS REFERENCE TABLE 
eg C310 876Se8 
CKSSTR Ce ve 6871 7388 
CK.CHR O264S4 8312 8348 8Sle 8533 ess 8674s  §713 8720 §723 8779 
CK.DEC C26426 86508 8682 
CK.DIG 87078 
Kr Ott naated B82 S392 Sie he 86308 38755 7&5 
VA. 
CLKSTA OO0l226 S71Ss8 £238 6579 6652 6713 6778 73e6# 7328% 7334% 
CLOSE Ce63!45 8586 85390 8533s 
CLRBUF OD22410 73028 
on a 
— a ‘ 
CNTRLC O0l2e14 571Se 6159 6175# 6184 6194 
COUNT G21606 6618 6676 oie 6750 6802 6815S 77398 % 
CYL.0S 001252 S71S@ 7407# ese 467458% «= 789ie = 8675092 )«=6—752S* §6=697660e «= 7ES4*# = 756S5# 8 8=6968040% 8 68Sst 8287 
CYL.RD CO1244 $7158 Pele oa 
C lel2 57158 6208 6438 6592 6632 7120 7341 7351 7361 7381 7436 7465 7531 
7601 B217 B221# 
DATC! 023132 7080 scizs 
OC60S4 63548 6398 
OFLT 001614 S71Se 6160 
OF 1 040360 573e 89068 
DF 10 040400 5796 832e8 
OF 11 040494 SB06 89268 
OF 12 040410 52819 29308 
OF i3 o4o420 5832 58S3 89378 
Oris 040430 5840 $86! | 
OF 17 O40434 5871 ] 88 
DOF 2 040364 S74e 69108 
OF el C40440 S894 
Dr2e O404S0 Sse §9cSs 
DF3 5752 89148 
DFY 040374 S762 89:88 
CFI cyo4s4 $932 83638 
42 SH2 89678 
OF S3 O4YO464 S9S4 89718 
SF SY 040474 S%9 89788 
4s o40s10 5984 $3393 35eSe 
DH} 036514 §730 gesss 
Bui? BSE 7E0 Poo BSED 
CHie 038773 aero $830 ssi 5%7 5382 $397 Betis 
DHieR 8333 
DHI3A 037141 8863 e946 
D17 037207 5869 $879 88648 
D2 036533 5740 5770 8 
DH21 037305 5892 88tSs 
DH21A 27363 88668 8955 
OH3 036631 5750 88578 
SKS 5760 8sses 
GH! 037422 5930 88678 
DHY2 037469 S940 59S2 8868s 
DHS3AR 896 - 037545 88638 8974 
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OZRPKB.P1) CROSS REFERENCE TABLE 


7s 
? 


BB8RB 
Site 


RB 
ait 


027060 
G03Se0 
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OZRPKB.P1i CROSS REFERENCE TABLE 


s39g 89008 


pepe pepe pede bed 
aaarees ® 


T7838 


88368 


7525 75548 486 7694 
7321 8270 8271# §272%  Ss280% 
8116 


9229 


3 
Oe? 
ak 


: 


OWN £WwrUe-cd 


Q0002000 
SRN EIR 


444 44-1 4-4-4 
b 4 
2 


GITU P= 0-- be 


Teas 
e500 


R 
a 


EX] 
EX] 
EX? 
EX! 
EXT 
EX] 
Ex! 
EXT 
EXI 
EXT 
ExT 
EX] 
EXT 
EX? 
EX! 
1 
1 
14 


88 
BS 


8 


Rik 
se 


BeRR 
sa 
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OZRPKB. P11 CROSS REFERENCE TABLE 


: 
S 


FSO 
FS1 
FS14 
FS1S 
F 
FS3 
FSY 
FSS 
FS 
FS? 


R 


8 
QIIYYIIIIYINg 


8 
ae 


FT 
FTi3 
FTiS 
FT2 
FT3 


oe 


RRs 


ba hee 
teS 
cevezverververvarververvesververtar® 


Bee Gs Be be be a te 
SR SaSSeswnse awa 


ios 


web 


8575 8894 8617 987858 


s 


eeu 
Oe 
— Oo £ 
% 
- 
Wer DO 
eS 


6261 6264 7165 7211 7225S 7275 
8438 S444 6450 S456 68463 BY47E 


o 

-~ 

R 
ca 


G0220e 
002220 
002232 
O24200 
e440 
000141 
O342S0 
034360 
034384 
Oe4ile 
LELLER 
Ce4706 
024760 
O2S222 
OeS2e4 
0eS276 
0eS326 
024550 

700 


z 
ree 


Ree Ri 
re ERB EE 
ee 


re 
B3z 


aS 
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CZRPKB.P CROSS REFERENCE TASLE 


$7158 7846 


RRnmcnine sens 
ay 


RERBR 
eo L 


ptctatefetstetetataststate 
a Se eae 


3 


UTENUNUNUTIUI NUT 


035074 
027164 
027200 
C3462 
034504 
035060 


pt et 
Oe 2 be he 0 a eee 


Reais 


8 
o” 


8550 


5 


uu 
NNN 
oe 
wut 
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OZRPKB.P11 CROSS REFERENCE TABLE 


IIIS3 
b> pe Hb Be 


eanensee 
52 


a5 

Perc 

a att 
uwIUnunwnuaia 


a 
425555 


0001 
90011 


6188 6190 6191 6192% 6193% 61962 6251# 62778 ES597# 6607  6616# 
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OZRPKB.P11 CROSS REFERENCE TABLE 


s bye Grete Boge Eraee 


* 
6747% 6 
6828% gO55% 6906% 7061% 7080% 7165% 
72eb0# 300% 7329 7335% 7348% 7356% 
7525# 7562 7565 7568 7571 
78018 #7803% #7806% 78118 ?78i3% 
B157e Sees 8279% 8358% 68469% 8509s 
PIRQ = 177772 49688 
PIRQVE= 000240 4968 
PKB O0i3s4e S7iS@ §6800% 6609% 6665% 6726% 6735% 
PKC 031344 57158 7743 7745 7750 
PKCS 001340 57158 l# 660%# 66118  6613% & 
6755% 6794# 6796% 68078  6809# 
PKY 001334 S71S@ 6596% 6664" 6724% 6789% 7363% 
POPQUE 7e 87858 
PRM 001434 $7158 8486 8495 8600 
PRMLMT 1520 57158  98S0e BS24 
PRMNSG 001544 $7158 98s0s 
PRIPT 001462 57158 8484 8601 
PRMO 002062 5715# 6161 
PRM1 002074 57158 
PRMIO 902236 57158 
PRM11  QO0224e2 57158 
pple 002246 57158 
PRM1 002252 57158 
a 
2 
Panie  peaen erie 
PRM2 OCe116 57158 
PRM3 002134 57158 
PRAY 002152 $7158 
PRMS 002170 57158 
PRMNG& 002206 57158 
PRM7 O02224 57158 
PRO = 000000 49688 
PRI = Qo004C 49688 
PRe = 000100 49688 
PR3 = 000140 49688 
PRY = 000200 49688 
PRS = 000240 49558 
PR7 = 000340 49688 
PS = 177776 aes 6177# 6189% 6623% 6690% 6756% 
PSA = 177776 49688 
PTPAIS O0C2316 $7158  70%6 
PWRVEC= 000024 49688 
QCNT 033606 - §78Se# 
SORVO 033672 87858 
QORVI 033712 87858 
QORVE 033732 87858 
@ORV3 033752 87858 
GORV4Y 033772 87858 
QORVS O340!2 87858 
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6821# 


72728 


7279 


6729  6731# 


7628 4 8=6 76298 


6742 


7637% 


SEQ 0175 
6738+ 
6824s 
7278% 
7509% 


ea 


18% 


67444 


7679% 
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OZRPKS.P11 CROSS REFERENCE TABLE 


C34032 
O340S2 
033610 


se 


S08 


: cpegeee: 
BRRSS 
BEPEeRReeea IN 


es RRSSSSSS 
Ta “ t 


eee 


a 
~ 
ta) 


6759 6799 6612 


i 


zg 
% 
g 


rma 
BE 
Tor 


to 0b 08 ee ue 


8 
o 


87858 


ce 


RES 

RHAS 
RHBA 
RHCA 
RHCC 
RHCS 


be 


6734% 67478 6&759% 6762 6799%  68l2# 


a 


87858 


geRsenes fi 
a 


ae 


ice 


= 


araneyE 
erie 


8884 


3: 

: 
BR 
ent 
RP 


61 
§7158 98509 eS42e eS8h#  S8S8e# 
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OZRPKB.P1i CROSS REFERENCE TABLE 


ei Giese te, 
RPT] eee eotet Paes 
RPTiIO O02e40 $715 6651 
RPT11  O02244 S71S# 67: 
RPTl2 002250 $7188 6777 
RPT13 Q022S4 57158 6855. 
ReTic OBEYS SST: 
RPTIE. | oeae2 SoSH 
RPTe 002120 57iS8 
RPT3 002136 57158 6409 
RE TY 002154 57158 6433 
RPTS peels 22138 6497 
RPTE 00221 7158 
RPT7 002226 57158 
a 027170 Bore 6631% 6665% 6698# ores 6764% 6790% 6829% ng 87858 
Py 883g 8902 
4 t poser 7400" 7422 7451 84 se 7Sil 7517 7687 87858 
RSTRT1 005072 6229 6231 62338 6239 
RSTRTe O0S104 62358 6240 
RSTRT3 ooSsile 62368 
RT = 00011 49788 
= 49688 6160% 6163 6164 6166% 6168 6169 6178% 6179% 6180 61 6201 6203 
B204# 6212+ # 6eSb% 60%  6265# 6342% 3% 6366% 6367% 
6289% 641S* 6416 644Se 6448e 6451% 6454e 6465% 6468% 6471% 6474" §505% 
6507% 7% 41% 3% 654S* 65478 6S82% 6634" * 6655* 6691% 
6716% 6757% 6765% 6781% 68228 686S# 7# 6868% 6870% 6871% 68722 
it 69l2e% 63913 6914 6916% 6917 6920# S22 6923%  6925% 
6926 6928% 6929 6937% 6941% 6944" 6945 7013%  7019# 1 
# 706S# 706 7077% 7081# 7leee 7le4e 7135% 7141% 7142% #71432 
7146% 71478 #7152% 71538 7156% 71578 7162% 7165 7182% 71834 7 7191 
7192% * 7199 7195% 7197% 7198% 7199 7226 7231 
727 1% 72e7S% 7277% 7278% 72e80%  7369% 7408# 
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ERRORS DETECTED: 0 
#DZRPKB, DZRPKB/CRF=SYSMAC . SMA, RPOY. 009, DZRPKB 
RUN-TIME: 70 82 9 SECONDS 

CORE USED: 39K 











oe 
cooler runtia oh, Seconds Dah take | rgeds, 0 digk er UTP 
me 


’ 


Lee gape eter a eaeererrgy 


_/ 
— i, _° 


Lift 
90000000001 11111111122222222223331 





